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GREETINGS! Welcome to a "Where did this issue come 
from?" issue of Northern Bytes! I didn't expect to accumulate 
enough material to put together another issue this soon* but 
thanks to YOU, our loyal readers, we've slipped in another issue. 
With any luck at all, we should have one more issue before the 
holiday season. That would make eight issues in 1984! 
Incredible! 

Because this issue is coming out rather soon following 
Volume 5 Number 6, Paul Snively's FORTH-WISE column will not 
appear in this issue, Paul's back in school and hitting the books 
pretty hard, but we'll see if we can coax a few more columns out 
of him, If you enjoyed that feature, why not drop Paul an MCI 
Mail letter and let him know? 

You may wonder if I'm allowed to say anything good about 
competing products since The Alternate Source took over 
publication of Northern Bytes. Sure I can, and here's proof! I've 
started playing around with AllWrite!, the new Word Processor by 
Prosoft, and I think it must be the state of the art in word 
processing programs right now, at least on the TRS-80. Now, The 
Alternate Source markets EDM and EDX, but there is a difference. 
EDM and EDX are super text editors, and they will do a very fine 
job if you don't have a fancy printer with proportional spacing (or 
if you don't care to use the proportional spacing capabilities of 
your printer). But, while AllWrite's editor is pretty good (much 
better than the editor in NewScript, the forerunner of AllWrite!), 
where it really shines is in its text formatting capabilities, Not 
only can it handle right justification on proportional printers 
(which EDM and EDX cannot), but it can handle things like 
footnotes (in your choice of formats), legal numbering of pages, 
automatic insertion of text from disk or keyboard into "form" 
letters, and even automatically building an index and/or table of 
contents from your text. In fact, if you need to do something and 
AllWrite! can't handle it, it's either because your printer can't do 
it, your printer is not supported by AllWrite (not too likely unless 
it's a real orphan), or you have some very specialized 
requirements. One warning - with added capabilities comes added 
program complexity, and AllWrite! is no exception. If all you need 
a Word Processor far is to write an occasional letter to Aunt 
Tillie, then use EDX - it's a LOT less expensive! But, if you'd 
like to make use of the proportional printing capabilities of your 
printer or you need any of the other special features, AllWrite! is 
for you. 

Of course, you could get a REALLY SUPER Word Processing 
system by using EDM or EDX to edit your text, and then using 
AllWrite's text formatter to print it out. This would give you the 
best of both worlds! This idea is not as strange as it sounds - 
most Word Processors actually consist of TWO programs in one. 
First, you have to have a text editor (usually a full screen editor) 
that allows you to enter the text into memory, and eventually 
save it to disk. Then, you have to have a text formatter program 
that reads your text file, interprets any embedded printer control 
codes that you've put into the text, and prints the file as you 
intended, using the printer features you've specified. There's no 
reason that both functions have to be done by the same program! 

In the same way, I know that some foJks use the ALE 
Editor-Assembler program (sold by TAS) to create assembly 
language source code, because it has the BEST full-screen editor 
for creating source code (the editor is basically the same one used 
in EDM and EDX, but with a few modifications to facilitate 
entering source code, and reading or writing some of the popular 
source code formats to/from disk!. But than these folks use some 
other Editor-Assembler to actually assemble the program, 
generally because they are already used to using some feature 
offered by their former Editor- Assembler and want to continue to 
use it. Another reason for using another assembler program 
might be that you want to use a super-fast assembler (such as 
ZEUS by Cosmopolitan Electronics, which assembles a source code 
file faster than, greased lightning but doesn't offer the 
full-screen editor of ALE). 

The nice thing about EDM (and ALE) is that they are 
"programmable" through the usa of a special macro language (this 
has nothing to do with "macros" in Editor-Assembler source code). 



Very few folks have bothered to try to learn and/or use the macro 
language (I have to admit I'm one of those that hasn't), but those 
that have learned it have made these programs do some pretty 
amazing things. 

Turning to other things, the rumor mill has been pretty 
active lately. I can't pass on any specifics of rumors I've heard 
here, but let's talk about computer magazines a moment. There's 
quite a turnover in this field. New ones start and then quietly 
fade away later. And then sometimes, a large publisher will 
purchase the publications of a smaller one, intending to use them 
as a tax writeoff. Of course, for that to happen, the publications 
thus purchased have to lose money (and possibly go bankrupt). 
You can sometimes tell that this is happening when the top brass 
of the purchased publications are fired and replaced by people 
that seem to be totally incompetent. Another sign might be that 
the advertising department will start passing out cut rates on ad 
space (the ad department people are hoping against hope that they 
can keep their jobs, so they are pretty desperate to sell 
advertising!). All the while, of course, the page count of the 
publications involved will keep shrinking, and the quality of the 
articles may drop to new lows (remember, the idea is to lose 
money, and for that to happen you have to discourage subscription 
renewals). Any resemblance between the above fictitious scenario 
and actual events in the computer publishing field are purely 
coincidentaK?), but don't be surprised if you discover something 
like this happening! 

And that's all I'm going to say for this month, except for 
this! When you go to vote in November, here's something to think 
about. Some labor unions are getting pretty upset about the 
possibility of folks working on computers in their homes, and 
would even like to have a federal law banning this practice (if you 
saw "40 Minutes" on September 23, 1984, you saw an official of 
the AFL-CIO grudgingly admit this). If such a law were ever 
actually passed, it would mean the end of NORTHERN BYTES, and 
most of our readers would probably be adversely affected by such 
a law as well (it can be argued, of course, that such a law would in 
fact be unenforceable, but even if that's so, what the world does 
NOT need now is another unenforceable law. Anyway, I wouldn't 
want to have to hide in a closet while I keyboard text for 
NORTHERN BYTES). Now, we all know which political party 
almost always gets the endorsement of the labor unions, and we 
know which party supports free enterprise. Think about it. This 
election year should be very interesting, because never in our 
recent history has the difference in the philosophies of the two 
parties been so clearly apparent. Editors of other publications 
get to make political endorsements, so I will too - if my opinion 
counts for anything, I'm solidly behind President Reagan for four 
more years. Unfortunately, there won't be another issue of 
NORTHERN BYTES before the election, so don't bother to take 
pen in hand (or word-processing disk in drive) to agree or 
disagree, because I won't be able to publish your letter in time to 
do any good. „___ 

THE EXTERMINATOR 

We thought we'd killed all of the BUGS in this program, but 
lo and behold, it appears we missed one. The bug I'm about to 
describe appears in some editions of "TRS-80 ROM ROUTINES 
DOCUMENTED", and was also published back in NORTHERN 
BYTES Volume 5 Number 3, as part of an earlier fix to "TRS-80 
ROM ROUTINES DOCUMENTED"! 

The problem is in the "Improved Ampersand Function" 
routine, found in Appendix VI of the book and on pages 4-5 of the 
NORTHERN BYTES issue mentioned above. The program (as 
corrected in NORTHERN BYTES Volume 5 Number 3) works as 
advertised in all but one situation. The lone exception is that if 
you go into BASIC with no memory protected (HIMEM or TOPMEM 
= FFFFH) and enter the following one-liner! 

10 INPUT A*! ?&H<A*>! GOTO 10 



the function will return a value of zero on at least the first use. 
and possibly on subsequent uses following a "garbage collection" 
in BASIC, Note that the same effect would be observed if the &B 
or &0 functions were used instead of &H. The problem is that the 
"END OF STRING + i" address used by the program will in this 
case be 0000H, which will always be "lower" than the 
start-of-string address. 

Fortunately) the fix couldn't be much simpler. Make the 
following change in line 1030 of the published listing! 



BACKUP !2 il (q=y> 



From! 










7Ff.lM 


lira 


RET 


NC 


[RETURN IF DO OF STRING 


To! 










7FEI C8 


•1131 


RET 


Z 


{RETURN IF DO OF STRING 



This should solve the problem. If you own a copy of "TRS-80 
ROM ROUTINES DOCUMENTED" 1*19.95 plus shipping from The 
Alternate Source), be sure to note the above correction on page 
108 of your copy (NOTE! If line 1030 in your copy doesn't match 
the "old" line 1030 shown above, you have an early edition of the 
book, and need to use the corrected listing in NORTHERN BTTES 
Volume 5 Number 3 AND the correction shown above). 

One more BUG to mention, this time in Dave McGlumphy's 
telephone dialer program that appeared on page 20 of NORTHERN 
BYTES Volume 5, Number 5. To fix the bug, insert a new line 265 
in the published listing! 



00265 



LD SP.6FFFH 



JSET STACK PTR. 



That concludes the bug report for this time around! 

LETTERS DEPARTMENT 

Here's the latest batch of correspondence received from our 
readers! 

Dear Jack, 

I think I have a solution to the problem of going back to the 
beginning of a file and rewriting some bytes at the beginning. I 
have used it and tested it on all the DOSses I have access to. I 
have only used it together with the single-byte get and put 
routines at locations 0013H and 001BH, and have not tested it 
with the sector read and write routines. 

The procedure is to position to record zero with a call to 
4442H, reset bit 7 of FCB+1 (single-byte read flag), and rero byte 
FCB+9 (record length). The new information can then be written 
at the beginning of the file, and when closed the end of file should 
be set to the highest location written to the file. If this does not 
work in all cases then I would like to know about it since I have a 
program on the market which uses it. 

Also does anyone out there have a set of ZAPs for the Model 
I version of M-ZAL release 3 which will allow lower case letters 
to be used, at least in text strings. A letter to Computer 
Applications Unlimited has been met with complete silence. If 
not, does anyone want to buy an unused, apparently unsupported, 
copy of M-ZAL? 

I do not know anyone with a Color Computer, so I have no 
idea of the disk format, but perhaps you have some documentation 
on the format and a sample disk with some data on it? I still 
haven't given up on the conversion program [mentioned in Arne's 
letter in the previous issue of NORTHERN BYTES -editor! but it 
has been reduced in priority due to other commitments. 

Sincerely, Arne Rohde 

[Editor's note! I do not have access to a CoCo, but perhaps 
one of our readers would be willing to help Arne by sending him a 
CoCo disk with some data, or any information you might have 
about the CoCo disk format and/or directory structure. If you'd 
be willing to help, you can send the disk and/or information to us 
here at NORTHERN BYTES, and we'll pass it on to Arne.] 



Dear Jack, 

I have a four drive Model 4 and a 4P, but know nothing about 
taking a computer apart. 

The 4P came with TRSDOS 6.1.1, which will not recognize 
more than two floppy drives because it is basically a hard disk 
system (a person at Radio Shack told me this was the reason). I 
wanted to update the Model 4 system from 6.0, but 6.1.0 had disk 
timing problems and 6.1.2 will not operate my BASIC programs. 
TRSDOS 6.1.1 can be made to recognize four drives if you give it 
6.1. 2's BOOT/SYS! 



BACKUP !2 !1 (S,I) 



<answer no to all> 

6.1.2 in drive 2 

blank formatted disk in drive 1 

6.1.1 move to drive 2 

The (S,I) forces a backup by class that 

doesn't touch the BOOT/SYS. 

If doing it on the 4P, put the system on the MEMDISK. Don't 
know if this is any help, but it works fine on my Model 4. 

Sincerely, Hope Dunham 

[Editor's note! What this letter goes to prove, I think, is 
that with a little thought there's a way around just about any 
situation, with the possible exception of misinformed Radio Shack 
personnel! 

Have you ever dealt with the telephone company business 
office? Frustrating experience, isn't it? There's a reason for it: 
Supervisors monitor calls at random, and job performance is based 
on how fast the business office operator (or regular operator, for 
that matter) can complete each call. So, the unspoken message 
from management is, tell the customer anything, but iust get them 
off the line - fast! If you don't know the answer to a question, 
make up something that sounds good, but complete that call 
quickly (and whatever you do, don't bother the Big Bosses with 
foolish questions). This scenario may be more or less true in your 
phone company, but for a while I lived in an area serviced by the 
nation's second largest telephone company and I'm just about 
certain this is how it was. I could never get a straight answer 
from the phone company, until I learned two things! 1) NEVER 
deal with the business office - always call the company 
President's office and work down from there, and 2) The 
management personnel feared the Michigan Public Service 
Commission more than they feared God (or at least it seemed that 
way), so if the going got tough, a threat to call the MPSC worked 
wonders (actually CALLING the MPSC would put the entire phone 
company on code red - they would actually work overtime to fix 
the problem!). 

Well, from what I've been hearing about some Radio Shack 
salesmen, they seem to operate under a similar philosophy. If a , 
customer asks a question and they don't know the answer, they 
just make up something plausible, and for goodness sake don't 
bother Fort Worth. Unfortunately, they don't fear the Public 
Service Commission, either, but may I suggest another route. If 
you have problems with TRSDOS 6, try calling Logical Systems, 
Inc. at (414) 355-5454 and ask for Bill Schroeder. You probably 
won't get him (he's the company President), but at least you might 
get to talk to someone in upper management. Now, the point of 
this is that first of all, they are probably in a better position to 
help you with your TRSDOS 6 problems than Tandy is, since they 
wrote TRSDOS 6. But more to the point, they are also in a 
position to make their voice heard at Tandy Towers. If they get 
hundreds of calls complaining about incompetent Radio Shack 
salesmen, you can bet that Tandy's gonna hear about it! And 
maybe, just maybe, they'll actually do something about it. 

On the other hand, I wouldn't hold my breath...] 



Date! 
From! 



Mon Aug 20, 1984 4!26 am EDT 
Jim Davis / MCI ID! 195-9314 



♦•RECEIPT 



TO! ♦ Jack Decker / MCI ID! 102-7413 

Subject! Super Utility 3.2 CMD file 

Dear Mr. Decker, 

First, I want to thank you for the procedure to create a CMD 
file for Super Utility Plus. Unfortunately, after I updated my 
Model III to a 4, it would no longer run TASMON, even in the 
Model III mode. I had to devise my own methods of finding the 
value in the interrupt register. My procedure is contained in the 
following copy of the file I wrote to remind me if I needed to 
again. 

Incidentally, the process does work on version 3.2. However 
my procedure for jumping to memory from Super Utility on 3.1 is 
more difficult because of a "bug" in version 3.1. 

BACKING UP SUPER UTILITY PLUS 3.2 

The following is the procedure to create a CMD file for 
Super Utility Plus, version 3.2. 



Step 1. 

Boot up Super Utility. Go into the MEMORY UTILITIES 
section and enter the following code at F002. 

F5.E5.21 ,00,FO,ED,57,77,F1,E1,C9 

Press <BREAK> and use the jump feature of Super Utility to 
Tump to F002. You will end up back at the main menu. Go back 
into the MEMORY UTILITIES section and go into "DISPLAY 
MEMORY" function. Look at the value at F0O0 and write it down. 
You'll need it later. It is the value stored in the interrupt 
register, and is the check-sum of your serial number. 

Step 2. 

Return to the MEMORY UTILITIES section and move memory 
from 4000H - 67FFH to D500H, 

Step 3. 

Now make the following entries in memory at FDOOi 

F3,21,00,D5,ll,00,40,01,00,28,ED,BO,3E,XX,ED,47,3l,00,FE,C3,15,40 

XX, is of course the number you wrote down. 

Step 4. 

Boot up your favorite DOS by pressing reset; DONT USE 
SUPER UTILITY'S EXIT FUNCTION. 

Use your DOS's DUMP function to make your CMD file. With 
TRSDOS 1.3 it would be as follows! 

DUMP SUPLUS/CMDSO <START=68O0,END=OFD15,TRA=0FDOO> 

You now have SU Plus as a CMD file. 

Sincerely 
Jim Davis. 4440 Lancaster Drive NE, Salem, Oregon 97305 

[Editor's note! There is an upgraded version of TASMON 
that contains its own keyboard driver, and adds many new 
features to TASMON. Details were in NORTHERN BYTES Volume 
5 Number 6 and in TAS UPDATE #6. Registered owners of the 
Model I and III versions of TASMON can upgrade for S10 (that 
includes a new disk), and there is a NEW version of TASMON that 
runs under TRSDOS 6.1.x that sells for S39.95 <*29,93 if you order 
before November 1, 1984).! 



MCI MAIL FILE TRANSFER PROGRAMS 
by Jack Decker 

As most NORTHERN BYTES readers know, I have been 
advocating the use of MCI Mail as a cost-effective method of 
transferring files between computer users. However, there is one 
problem with MCI Mail - it cannot be easily used to transfer 
certain types of files. These programs remove that limitation. 

The problem stems from the fact that MCI Mail is basically a 
text transfer medium. Plain vanilla ASCII text files are easily 
transferred, but there is no automatic error checking. BASIC 
programs can be transferred if saved in ASCII format, but once 
again there is the lack of error checking and in addition, lines 
cannot be greater than 132 characters long for reliable transfer. 

MCI Mail cannot handle ASCII characters outside the range 
of normal text - that is, under ASCII 32 ("control" characters) or 
greater than ASCII 127 ("graphics" or "special" characters). But, 
virtually any file that is not one of the two types listed above 
will contain such characters. What do you do if you wish to 
transfer, for example, a short machine language object or source 
code file to someone else? 

The programs below will take ANY regular TRS-80 Model 
I/III type files and convert them to a format that can be 
transmitted over MCI Mail. Even Model 4 (TRSDOS 6) format files 
can be sent using these programs, but the programs themselves 
will only run in the Model III mode on a Model 4 or 4P. You can 
send ANY type of file, be it text, compressed BA5IC, ASCII 
BASIC (with any line length), word processing, Editor-Assembler 
source, machine language, or whatever. TWO checksums are 
maintained to inform you of any errors in the transfer. 

The programs work by converting a file containing bytes in 
the range 0-255 ASCII to a file containing bytes in the range 
32-126 ASCII. Text bytes in the range 32 through 123 ASCII are 
not converted, but are sent as-is. Other values are converted to 



a two-byte format. As an example, bytes in the range 0-32 ASCII 
have a value of 32 added to them, and then are sent with a "prefix 
byte" of 124. The chart below may make this a bit clearer 



VALUE ADDED TO/ 
SUBTRACTED FROM BYTE 



ORIGINAL 


PREFIX BYTE 


VALU 


ASCII VALUE 


VALUE 


SUBT 


0-31 


124 


+ 32 


32 - 123 


none 


none 


124 - 175 


124 


-60 


176 - 255 


125 


- 144 



ASCII 126 is used as an "end-of-file" marker, and ASCII 127 
is not used since it sometimes has a special meaning to certain 
terminal programs. 

The individual bytes of each file are transmitted as shown 
above. After 64 characters on a line have been transmitted, a 
"line checksum" byte is transmitted followed by a carriage return. 
The "line checksum" will only detect gross errors (where an entire 
byte has been garbled, for example) because it is obtained by 
adding each transmitted byte on the line to the preceding byte, 
then at the end of the line it is ANDed with 63 to mask off the 
upper two bits and then a value of 32 is added to make it a 
printable character. Note that the upper two bits are not checked 
at all! Thus, if only two consecutive bits were garbled and they 
happened to be the upper two bits of a byte, the error would not 
be detected by the "line checksum" (but would still be detected by 
the main checksum). The main purpose of the line checksum is to 
help point out the line in which an error occurs, so that the 
recipient of the file has an oppertunity to attempt manual 
correction (passible only in some types of files). 

Note that the above formula used to derive the "line 
checksum" can yield a character in the range 32-95 ASCII, so there 
is no chance of it being an "unprintable" character. 

When the end of the file is reached, an "end-of-text" (ASCII 
126) byte is transmitted, followed by the "line checksum" for the 
line (which may be a "short" line of less than the normal 65 
characters). A carriage return is then sent. The master checksum 
is then sent on a line by itself, in plain ASCII format (in other 
words, using the numerals 0-9). The master checksum may be in 
the range -32768 to 32767 (keeping it within integer limits), and 
is the sum of all file bytes (not including "line checksums" or 
carriage returns). Should the checksum exceed the 32767 limit, a 
value of 65536 is subtracted and the count continues. Those of 
you into assembly language will recognize why these values have 
been used. I'm sort of hoping that someone will convert these 
programs to machine language someday (I might, if I can ever find 
the time), so I set up the master checksum so that it could be 
accumulated in a register pair or two-byte memory location. Note, 
however, that the checksum is printed on the final line in decimal 
rather than hexadecimal format, with a leading minus sign if the 
number is negative. 

The program FILTOMCI/BAS converts a file to the format 
shown above. You must give it an input filename (the file you 
want to convert) and an output filename (the file you will upload 
to MCI Mail). It will then make the conversion according to the 
specifications given above. If you're converting a long file, this 
may take awhile (BASIC is nothing if not slow!). 

MCITOFIL/BAS does the reverse, taking the received file 
and converting back to a mirror image of the original file. One 
caution must be observed by the person receiving such a file - 
before you download it, use the ACCOUNT command to set your 
terminal line length to a value greater than 65 (either 80 or 132 is 
suggested). If you don't do this you'll get extra carriage returns 
and MCITOFIL/BAS won't be able to convert the program. Also, 
you PRINT rather than READ your received mail to avoid getting 
prompt strings mixed into the program. If you've already read a 
file and realize you didn't do it right, remember that you have up 
to 24 hours to go back and re-read any mail on your "desk". Just 
use ACCOUNT to set the line length, then have MCI Mail PRINT 
the contents of you DESK (or your INBOX, if you've just started 
reading your mail for the first time). Open your terminal 
program's text buffer and save the received mail to disk 
(MODEM80 from TAS works quite well for this purpose). 

When you're ready to use MCITOFIL/BAS, you have the 
option to skip lines at the start of file, which you should do if you 
saved the header information to disk, or if the person sending the 
file sent some text for you to read prior to sending the program. 
Just keep pressing the <S> key until you see the first line of the 
transmitted file, then press <ENTER> and MCITOFIL/BAS will do 
the rest. 

Note that these programs could also be used with other 
electronic mail services (such as Western Union's EASYLINK), 



although I haven't tried it with any of them (by the way, did you 
know that MCI MAIL and EASTLIKK users can communicate with 
each other by using the TELEX facilities of each service? It's 
probably pretty expensive to do it this way, but it can be done!). 
Similarly, these programs could probably be converted for use on 
other versions of BASIC without too much difficulty, The one 
portion of MCITOFIL/BAS that might confuse even some of you 
"experts" is in lines 30 and 90. What this does is to set up a 
string storage area (referenced by BASIC as V*) on the upper 
right-hand corner of the video display, so that a string containing 
the line count can be "stored" (and thus displayed) there. I have 
to give credit to Alan Abrahamson, editor of Voice of the '80 
(newsletter of the Fairfield County Computer Users Group) for 
giving me the idea for this one. He used this technique in a 
BASIC program to move data from one place to another on the 
video display. Alan explains! 

"The technique of using the dummy variables to block move 
the DATA using "LSET" [I used RSET to pad the left side of the 
string with spaces] is about ten times the speed of a similar 
PRINT statement. The LSET Cand RSET!! comma nd ap pears to do 
a Z80 block move (LDIR.LDDR) between the VARPTR's (pointers) 
of the variables involved. This technique can be used in any 
screen data manipulation routine to move data from point A to 
point B. Remember that the LSET routine physically moves the 
data from one place to another, it is NOT just a pointer swap. 

"The key ingredient in using this method is to establish the 
dummy or real variables prior to using LSET Cor RSET1. It is not 
necessary to OPEN any files in using LSET, but you cannot use 
LSET on a variable that has not yet been initialized..." CI added 
the comments in brackets.l 

The above two paragraphs were included for the benefit of 
the advanced programmers in the crowd. If they didn't make any 
sense to you, then all you need to know is that line 30 (the part 
after the CLS) and line 90 will probably have to be deleted if you 
attempt to convert this program for any other system. The 
purpose of those lines in this program was to let me print a 
running line count at a fixed location on the video display, without 
changing the current cursor location (so that if any "checksum 
error" type messages were being printed, they wouldn't keep 
overprinting the same line). 

Two warnings about these programs: One, they were thrown 
together in some haste and do not contain any great amount of 
error trapping. There's no telling what they'll do if you use them 
incorrectly. Two, note the version number (1.0). We can always 
hope they are bug free, but that's not the way to bet. Besides 
that, I'm really hoping some of you readers will see fit to improve 
upon these programs and then share the results with the rest of 
us. In any case, watch future editions of NORTHERN BYTES for 
corrections and/or enhancements. 

And one final note! There is a program called HEX/CMD that 
is included in the MODEM80 package that does something similar 
to what I'm doing here, but the only problem with it is that it 
converts ALL bytes within a file to two hexadecimal characters. 
When you're paying by the character, that may be just a bit too 
much code expansion, especially when the file you're converting is 
mostly text but with an occasional control code or bit of graphics 
or a machine language segment thrown in. The truth is that 
unless you deliberately go out of your way to set up a situation 
where this is not the case, ANT converted file will be shorter, in 
many cases MUCH shorter, when converted using the programs 
below as opposed to conversion using HEX/CMD. However, 
HEX/CMD is in machine language and does the job much faster, so 
if you're only sending a short file anyway, it may pay to use that 
program instead. 

10 REM FILTOMCI/BAS VERSION 1.0 - CREATION DATE 9/26/84 

20 CLEAR 10000! DEFINT A-Y! LINE INPUT "INPUT FILENAME? 

"!A«! OPEN •R",1,A$,1! LINE INPUT "OUTPUT FILENAME? "5A*! 

OPEN "0",2,A*I FIELD 1, 1 AS A* 

30 IF NOT EOF(l) THEN GET 1! GOSUB 60! GOTO 30 

40 N=63! A=126! GOSUB 80! A*=STR*(Z): IF LEFT*(A*,1)=" " THEN 

A*=MID»(A*,2> 

50 PRINT A*! PRINT#2,A$! END 

60 A=ASC(A*)1 IF A>175 THEN A=A-144! B=125 ELSE B=124! IF A> 

123 THEN A=A-60 ELSE IF A<32 THEN A=A+32 ELSE 80 

70 T=A! A=B! GOSUB 80! A=T 

80 PRINT CHR*(A)!I PRINT#2,CHR$(A)!! C=C+A! Z=Z+A! N=N+1! IF 

N<64 THEN RETURN ELSE N=0i IF Z>32767 THEN Z=Z-65536 

90 C=(C AND 63)+32! PRINT CHR$(C)! PRINT*2,CHR»(C)i C=0! RET 

URN 



10 REM MCITOFIL/BAS VERSION 1.0 - CREATION DATE 9/26/84 
20 CLEAR 10000! DEFINT A-Y! LINE INPUT "INPUT FILENAME? 
"(A*! OPEN "I",1,A«! LINE INPUT "OUTPUT FILENAME? "JA*! ON 
ERROR GOTO 1805 KILL A*5 ON ERROR GOTO 0! OPEN "R",2,A$, 
1! FIELD 2, 1 ASA* 

30 CLS! V*="UNE 00000"! POKE VARPTR(V*)+1,54! POKE VARPT 
R(V*H2,60 

40 LINE INPUT "DO YOU WISH TO SKIP LINES AT START OF FIL 
E (Y OR N>? "(B* 

50 B*=LEFTS(B*,1>! IF B*="N" OR B*="n" THEN CLS! GOTO 80 EL 
SE IF B*0"Y" AND B*<>"y" THEN 40 ELSE PRINT "PRESS <S> TO 
SKIP LINES, <ENTER> TO START USING LINES..."!PRINT 
60 IF EOF(l) THEN 80 ELSE B*=""! LINE INPUT #1,B»! PRINT B»! 
PRINT CHR*(14>}! I*=INKEY* 

70 Is=INKEY«: IF I*="S" OR I*="s" THEN 60 ELSE IF I*=CHR*(13) 
THEN PRINT CHR*(15)}! CLS! GOTO 90 ELSE 70 
80 IF EOF(l) THEN PRINT"***** UNEXPECTED END OF FILE ** 
***"! CLOSE! END ELSE B*=""i LINE INPUT #1, B* 
90 N=N+1! RSET V*="LINE"+STR*(N) 

100 IF LEN(B*K>65 AND INSTR(B*,CHR*(126»=0 THEN PRINT "** 
**• FATAL ERROR - LINE WRONG LENGTH *****"! PRINT B*l C 
LOSE! END ELSE C=0! FOR L=l TO LEN(B*)i GOSUB 130! NEXT! IF 
F=0 THEN 80 

110 LINE INPUT #1,B*I IF VAL(B»K>Z THEN PRINT "***** MAST 
ER CHECKSUM ERROR ****** 
120 CLOSE! END 

130 A=ASC(MID*(BS,L,1)>! IF L<LEN(B*> THEN 150 ELSE IF (A-32> 
0(C AND 63) THEN PRINT"***** CHECKSUM ERROR *****"! PR 
INT B* 
140 RETURN 

150 C=C+A! Z=Z+A! IF Z>32767 THEN Z=Z-65536 
160 IF P=125 THEN A=A+144 ELSE IF P=124 THEN IF A<64 THEN 
A=A-32 ELSE A=A+60 ELSE IF A=126 THEN F=l! RETURN ELSE IF 
A>123 THEN P=A! RETURN 
170 P=0! LSET A»=CHR*(A)I PUT 2! RETURN 
180 RESUME NEXT 



DONT GIVE ME THAT LINE 

by David R. McGlumphy 

4429 Paula Lane, Chattanooga, Tennessee 37415 

MCI Mail ID! 181-7759 

Once upon a time, and once upon a place, I saw the question 
"How do you draw a line on a TRS-80?" Too easy for piddling 
with, thought I. Then for grins, I tried it. If you too think it's 
easy, try it before looking over my program. You may also find it 
harder than it sounds. 

My thinking went like this! Suppose I want to draw a line 
from (0,47) to (127,0) which is from the lower left corner of the 
screen to the upper right corner. For every X position that I move 
to the right, I'd have to go up a fraction of a Y position, and that 
fraction would be the number of Y positions divided by the number 
of X positions. That sort of thinking is fine as long as the 
fraction is less than one. If it were greater than one, I'd get a 
gap (space) in the line. In that case, I'd just go along the Y axis 
instead of the X axis, and the fraction would be computed by 
dividing the number of X positions by the number of Y positions. 
I'd also have to take into account the sign of the change in 
positions. In this first case, the change in the X axis is positive 
(from left to right) while the change in the Y axis is negative 
(from bottom to top). If the line were to go from the lower right 
corner (47,127) to the upper left corner, (0,0), the change in both 
the X and Y axes would be negative. With that, let's proceed to 
the program. 

Lines 40 and 50 pick two random points on the screen for 
using the SET and RESET commands to turn on or turn off a point. 
Remember that the minimum for both X and Y coordinates is zero, 
the maximum for X is 127, and the maximum for Y is 47. 

As written, my program will draw a line, erase the same line, 
then draw another line starting where the first line ended. If you 
want to see the lines continued as though drawing without lifting 
a pencil from paper, make line 90 a REMark by inserting an 
apostrophe (') at the beginning of the line. In order to erase the 
line, I needed to save the two sets of coordinates, so that's what 
line 60 does. 

Line 70 puts a 1 in variable SR. If SR has a 1, that means to 
SET (turn on) a point. If SR has a 0, it means to RESET (turn off) 
a point. Line 70 then calls the routine at 120 which determines 
which of two "draw routines" to use. 



Line 80 restores the original two sets of coordinates 
because they were corrupted in the drawing subroutines. Line 90 
then goes over the same graphics points as was done by the 
GOSUB in line 70, but this time, the points are RESET (erased). 

I decided always to draw from (XI, YD to <X2,Y2>, so after 
I've done so, I let line 100 move the last set of coordinates to the 
first set so that 111 start drawing from that point on the next 
go-around via line 110 which sends me back to the beginning of 
the mainline routine, lines 50 thru 110. 

Lines 120 thru 140 are the subroutine called from the 
mainline section. They compute the distance between the sets of 
coordinates and call one of two routines which actually do the 
drawing, Why two subroutines instead of just one? Remembering 
what I'd though about in the second paragraph, I wanted a solid 
line from point to point rather than one filled with gaps and 
spaces. Notice according to the remarks on lines 150 and 240 that 
one routine is used when the difference between the X 
coordinates is greater than the difference between the Y 
coordinates and another subroutine is used when the difference 
between the Y coordinates is greater than the difference between 
the X coordinates. Notice also that in the 150 subroutine, I vary 
the X coordinate one full integer at a time while in the subroutine 
at 240, it's the Y axis which gets varied at the rate of an integer 
per loop, The remaining axis in either subroutine varies at a 
decimal fraction. To put line 130 into English, "If the distance 
along the X axis varies faster than the distance along the Y axis, 
then use the drawing subroutine at line 150. Otherwise use the 
subroutine at line 240." Clear as mud, right? Anyway, it works. 

You should wonder what the fudge factor is in lines 160 and 
250. The best way to answer that is tell you to REMark out those 
two lines, REMark out line 90, install line 95 to say! 

95 IF INKEYS="" THEN 95 
which will cause a pause after each line is drawn. Then you can 
compare the difference. Suffice it to say I like the line image 
that I get with the fudge factor better than the image without the 
fudge factor. 

So what's with the SGN stuff in lines 180 and 270? SGN(n) 
returns either a -1 or a +1 depending on the value of n when n is 
not 0. Therefore, in line 180, if the change in to X coordinate as I 
proceed from XI to X2 is positive, I use "STEP +1", but if the 
change is negative, as when the second point is to the left of the 
first point, then I use "STEP -1". 

So here it is. It works. Even if you don't understand it, you 
can use it to draw straight lines from one point on the screen to 
another. 

How do you do it in assembly? I have absolutely no idea, but 
I'd sure like to see it done. How about showing me! 

10 '"LINE" DRAWS FROM ONE POINT (X1.Y1) TO ANOTHER. 

20 'CAVE MCGLUMPHY 4429 PAULA LN CHATTANOOGA TN 3741 
5 

21 '09/03/84 MCI# 181-775? 
30CLS 

: Y1=RND(48)-1 'End of initializations. 



40 X1=RNDU28>-1 

41 ' 

50 X2=RNDU28)-1 
60 X3=X1 ! X4=X2 



Y2=RND(48)-1 

Y3=Y1 i Y4=Y2 'SAVE COORDINATES 
70 SR=1 ! GOSUB 120 '(SR MEANS SET(l) OR RESET(0H 
80 X1=X3 ! X2=X4 ! YJ=Y3 ! Y2=Y4 'RESTORE COORDINATES 
90 SR=0 i GOSUB 120 'ERASE LINE 
100 X1=X2 ! Y1=Y2 'START NEXT LINE & END OF PREV, LINE 

1 10 GOTO 50 ' DO IT AGAIN. 

111 ' 

120 DX=X2-X1 ! DY=Y2-Y1 

130 IF ABS(DX) > ABS(DY) THEN GOSUB 150 ELSE GOSUB 240 

140 RETURN 

141 ' 

150 'SUBROUTME FOR WHEN ABS(DX) > ABS<DY) 

160 Yl=Yl+.5 

170 IF DX«0 THEN IY=1 ELSE IY=DY/DX 

180 FOR J=0 TO DX STEP SGN(DX) 

190 X«J+X1 

200 Y=Y1+J»IY 

210 IF SR<=1 THEN SET(X,Y) ELSE RESET(X,Y> 

220 NEXT J 

230 RETURN 

231 ' 

240 'SUBROUTINE FOR WHEN ABS(DX) < ABS(DY) 



250 Xl=Xl+.5 

260 IF DY=0 THEN IX=1 ELSE IX=DX/DY 

270 FOR J=0 TO DY STEP SGN(DY) 

280 Y=J+Y1 

290 X=X1+J*IX 

300 IF SR=1 THEN SET(X.Y) ELSE RESET(X,Y) 

310 NEXT J 

320 RETURN 



LINE REVERSAL PROGRAM 
by David R. McGlumphy 

Clf you suffer from personality reversals, you can make your 
computer as crazy as you are. Somehow, it seems appropriate that 
Dave McGlumphy wrote the text and program that follows!! 

After leaving the 'puter alone for quite a while to enjoy 
sailing, my withdrawal pains drove me crazy and I decided to write 
a subroutine to reverse a string. Will it EVER do anyone any 
good? Who cares. I had fun. Example! "This is a line." becomes 
".enil a si sihT". I wrote my routine in assembly to satisfy my 
pseudo-masochistic (sic or sick) desires, and then figured out the 
DATA statement's numbers to allow me to pack the subroutine in 
a string. It'll handle BASIC strings of normal length, 240 or 255 
or whatever it is. Voila! 

10 'REVSTR 09/03/84 reverses a BASIC string. 

20 'Dave McGlumphy 4429 Paula Ln Chattanooga Tn 37415 

30CLS 

40 CLEAR 1000 

50 DEFINT I-N 

60 RV*="1234567891 12345678921234567893123* 

70 R2»=" I 23456789 1 1 234567892 1 2345678931 23" 

80 K=VARPTR(RV$) ! AD=PEEK(K+1) + (256*PEEK(K+2» 

90 DEFUSR=AD 

100 DATA 205,127,10,229,221,225,78,175,71,221,110,1,221,102 

110 DATA 2,229,209,9,43,235,65,203,56,78,26,119,121,18,35 

120 DATA 27,16,247,201 

130 FOR J=0 TO 32 ! READ J J I POKE AD+J,JJ ! NEXT J 

140 CLS 

150 LINEINPUT"What do you want reversed? "[A* 

160 CLS 

170 PRINT A* 

180 X=USR(VARPTR<A*» 

190 PRINT AS 

200 GOTO 150 





suet 


[CALLED FROM BASIC TO REVERSE A STRING. 




Hill 


[DAVID MCGLUHPHY 09/03/81 




81120 


}H29 PAULA Lf- 


( 






18130 


iCWTTANOOGA, 


TN. 37115 






00140 


> 






FFD6 


01150 


ORG 


OFFD&H 




FFDACD7FM 


80141 


CALL 


0A7FH 


[GET WARPTR(STRING) 


FFD9E5 


00170 


PUSH 


HL 


jputit 


FFDADDE1 


06180 


POP 


n 


J INTO IX 


FFDC * 


00196 


LD 


C,(HL) 


(LENGTH TO C 


FF0D AF 


00210 


XOR 


A 


(ZERO OUT A 


FFDE 17 


00210 


LD 


B,A 


JPUT IT IN B. 


FFOf DD6E01 


00220 


LD 


L,(IX+1) 


{ADDRESS 


FFE2 DD6402 


00230 


LD 


H,(Di+2) 


! T0HL 


FFE5 E5 


00240 


PUSH 


HL 


(PUTHL 


FFE6D1 


00250 


POP 


DE 


; INT0DE 


FFE7 09 


802*8 


ADD 


HL,BC 


}PT HL PAST LAST CHAR 


FFE8 2B 


00270 


DEC 


HL 


!PT HL TO LAST CHAR 


FFE? EB 


00280 


EX 


DE.IL !PT DE TO END, HL TO STRT 


FFEA11 


00290 


LD 


B,C 


JPUT LENGTH IN B 


FFEBC838 


00300 


SRL 


B 


[DIVIDE n BY THD 


FFED 


00310 REVLP EOU 


$ 




FFB) 1 


00320 


LD 


C,(HL) 


[LEFT STRING PART 


FFEE1A 


00330 


LD 


A,(DE) 


[RIGHT STRING PART 


FFEF 77 


00310 


LD 


(HL),A 


[SWITCH 


FFFO 79 


90350 


LD 


A,C 




FFF1 12 


00360 


LD 


(DE),A 


! THEN 


FFFZ 23 


00370 


DC 


HL 


[POINT TO NEXT 


FFF3 IB 


•9380 


DEC 


DE 


i CHAR PAS) 


FFF1 10F7 


00390 


DJNZ 


REVLP 




FFF6C9 


00100 


RET 




[TO BASIC 


0000 


00110 


END 






BltOO TOTAL ERRORS 








REVLP FFED 











WHERE 

by Michael Brothertoo 

[This article is reprinted from the Voice g£ the. Jg), the fine 
newsletter of the Fairfield County (Connecticut) Computer Users 
Group edited by Alan Abrahamson.l 

It has been 4 years since my programming debut in the Voice 
of the '80. The program, written as a joke and given to John 
Krause, appeared in the newsletter) much to my surprise. I feel it 
is time to redeem myself • 

First, I would like to make a small statement) At my first 
FCVG meeting, the club's 1st anniversary meeting, the vast 
wealth of knowledge displayed by the group was overwhelming. I 
thought I knew my stuff, but I quickly learned the contrary. This 
club has been an excellent source of information and I'm glad to 
be a part of it. I noticed, however, some members stereotyped the 
club's youngsters. He were classified, not surprisingly, as 
game-playing video game addicts. This is quite understandable 
since most youngsters use computers for game purposes only. 
However, please try to keep in mind that games are not the only 
things which interest the younger computer group. I have worked 
hard to raise my status above the "gamester" level and it seems 
to have paid off. I thoroughly enjoy talking with members of the 
club and hope to meet many more. Enough of this drivel - I 
believe I have made my point. 

This is the first of two articles I intend to write in the 
immediate future. Most of us have slaved for hours writing 
programs to do all sorts of stuff. He all know the headaches 
caused by errors and bugs, and have frequently said **•%&*", 
"•\&*&' a or when we are really upset, "**\&V!!!" Well, some 
help is on the way. If you pack your lines like I (and of course Sid 
Gross & his BLIHKEY program) do, then you know the problems 
which arise when the computer says "ERROR" and all you can do is 
stare and say Where? It seems logical that the computer knows 
where the error is, but it just won't say. Well, now it can, 
Although this program does have some limitations, it will give you 
aid in finding those rotten errors. The program is called, WHERE. 

Here is a general breakdown of how the program functions. 
In the Level n ROM (19ECH), there is a "DOS EXIT" or call to 
41A6H. Normally this simply returns when Level n BASIC is 
active, but Disk Basic uses this call to display the elongated 
error messages. Here is where I too intercept the error 
processing. When you execute the program from DOS, it simply 
sends the message OOSCM dine 1910) to the operating system and 
returns. This string is interpreted as a command, and then 
executed. BASIC is entered, memory size is set to 64512 and a 
VSR function is defined at FC13H (the program initialize routine) 
and the program initializes. Then a USR function is pointed to the 
DATA TRACE routine (FD7AH). I put the data trace as a USR call 
since this routine is not always needed, 

initialization: 

140-210 take the code at 41A6H-41A8H and stores it for 
later. Then, it places a jump to my routine in that area. We need 
the code replaced by my jump statement since it is part of the 
regular error processing routine. 

220-340 puts my banner on the screen and moves the cursor 
down below the banner. It then returns to BASIC 

program: 

350-440 clears the screen, stores the error code, and stores 
the current variable type for later. Storing the variable type is 
important since the call to 28A7H changes the variable type and 
produces a TM ERROR when you return to BASIC. [NORTHERN 
BYTES editor's note! This problem could also be eliminated by 
calling 2B75H rather than 28A7H to display the message - see 
page 11 of TRS-80 ROM ROUTINES DOCUMENTED for further 
information on these two routines.] 

450-570 finds the error line, if it exists, and displays the 
line number. If no line exists, it jumps to the exit routine. 

580-660 gets the address of the last byte executed. The 
next byte, presumably, is the error. A test is made to see if the 
error is at the beginning of the line. The pointers are moved over 
the line • and next line pointer stored in the BASIC program. 

670-1010 is a list routine. This displays the line and 
searches for the error position. When the error is found, the 
marker is displayed, and listing continues. 

1020-1140 prints the error marker, Model 3 users might 
want to change this to display the hand. 

1150-1220 prints two carriage returns, removes the excess 
garbage on the stack, and then restores the variable type. 



1230-1290 returns to BASIC from this program. If it was 
called from BASIC, a RET is ezecuted. If it was called 
"automatically" (by the jump statement placed by the initializing 
routine), then the E register is loaded with the error code and 
execution continues..... 

1300,1310 through these statements (which were taken from 
the code at 41A6H). 

1320-1330 enables interrupts and calls 41A9H, the first byte 
after our jump statement. It is assumed that the current 
operating system will POP the return address off the stack. 

1340-1400 backs up the cursor a 5 spaces. Looking at it now, 
I don't remember why there is a SPACE imbedded in the 
backspaces, but, going along with Murphy's Laws, we'll leave it in 
there since it works! 

1450-1500 is the return routine when no error is found. 

1510-1580 are assorted messages. 

DATA TRACE ROUTINE 

1590-1770 is the DATA search routine. All it does is 
display it's message, change the "last byte executed" to the byte 
after the last usable data was read in, change the "error line" to 
the current data line, and (if data exists) call the error find 
routine. If no data exists, lines 1730-1760 will exit the routine. 

1780-1850 displays the no data found message 

1860-1870 is the command string executed when the program 
is executed from DOS. 

1880-1900 is the banner a went in with SUPERZAP after 
assembling the program and changed the dashes to SCH's) 

1910-1920 execute the DOS command upon entry of the 
program via DOS. 

1930 I'll let you figure this one out for yourselves. 

The origin for the program is set fairly low to allow for my 
density recognition routine. If you do not need any routines at 
the top of RAM, then by all means move the program up to the 
tippy top of memory. 

There are some changes which may have to be made to allow 
this program to work with different DOSes. One spot which I see 
needs changing is the DOS command line. This will be different 
for each DOS. You can find the correct syntax for your DOS in the 
manuals or ASK ALAN! These lines are set up for use with 
NEWDOS/80 Version 2. Some DOSes may require you to type 
these commands individually. I suggest, in this case, using either 
a DO file or one of those programs which makes chain files. The 
rest of the program seems to be compatible, but I have not tried it 
on every system. 

Enjoy this new "game" folks, and please feel free to ask me 
any question. I shall do my best to answer them. 







WHERE/ASM 




(XII 


Hill 


ORG 


KTIIH 




FC8H5 


Mill ICSGI 


DEFM 


'Error Diagnosis '.' 


72 72 4F 72 2I« 49 61 47 4E 4F 73 4? 73 21 3A 


FC11 ID 


11121 


DEFB 


ION 




FC12 II 


11131 


DEFB 


IIH 




FC13 2AA441 


IIHI START2 


U> 


HL.U1A6H) 


i DOS ERROR ROUTINE 


FC16 22FFH 


II1SI 


LD 


(DZAP).HL 


J STORE IT 


FC19 3AAM1 


11141 


LB 


M11ABH) 




FC1C 32I1FD 


11171 


LD 


<DZAP1),A 




FClf 2H3FC 


11181 


LD 


HL.START 


5 OUR PROG. BEGDWHG 


FC22 22A711 


11191 


LD 


H1A7H),HL 


J RIG FOR AUTO INVOKE 


FC25 3EC3 


II2II 


LD 


A,IC3H 


5 JUMP STATEMENT 


FCZ7 32A641 


11211 


LD 


(41A6H),A 


; STORE IT 


FC2A2A2H0 


11221 


LD 


HL,(W2tH) 


{ SET CURSOR POS 


FC2D E5 


11230 


PUSH 


HL 


J COPT IT INTO 


FG2ED1 


11216 


POP 


DE 


J DE FOR USAGE 


FC2F 21I2FE 


89251 


LD 


HL,BAMER 




FC32ESM 


1 1241 LOOPS 


LDI 




(HWEABTTE 


FC317E 


11271 


LD 


A,(HL) 


JCETBYTE 


FC35B7 


••28a 


OR 


A 


! SET FLAGS 


FC36 2IFA 


11291 


JR 


NZ.L00P8 


} IF NOT 1, CONTINUE 


FC38 2A2M0 


II3II 


LD 


HL,(4t2IH) 


i GET START AGAIN 


FC3B HUH 


81311 


LD 


DE.254 




FC3E 1? 


11328 


ADD 


M..DE 




FC3F222M0 


H33t 


LD 


(«2IH),HL 


} HOVE CURSOR DOHN A FEN 


FM2C9 


11311 


RET 




; LINES 


FM3F3 


11351 START 


DI 




; DISABLE INTERRUPTS 


FM4 79 


11360 


LD 


A,C 


! GET ERROR TYPE 


FC15 3Z1FFD 


11371 


LD 


(K1K1+1M 


5 STORE IT FOR ERROR EXIT 


FM8 AF 


11381 


XOR 


A 


i ZERO A 


FC19 32CCFD 


11391 


LD 


(U0NE),A 


} ZERO OUT CALLER ROUTINE 



FC1C 3AAF1I 


IH1I 


LD 


A.dlAFH) i 


TYPE OF VARIABLE USED 


FC1F 327*0 


Mill 


LD 


(TQVU),A ; 


STORE IT FOR RETURN 


FC52CDC9I1 


0H2I 


CALL 


I1C9H ; 


CLEAR SCREEN 


FC55 21I1FC 


11131 


LD 


HL,HESG1 i 


ERROR DIAGNOSE 


FC58 CDA728 


W10 


CALL 


28A7H ; 


pRprr n 


FC5B 2AEA1I 


11151 LTFTND 


LD 


HL.dOEAH) ! 


ERROR LUC 


FC5EZZ72FD 


IM6I 


LD 


(TSTR).KL I 


STORE FOR PRDCnHG 


FC41 EB 


IM7I 


D 


DE.HL ; 


PUT n DtDE 


FC42 C0ZC1B 


0I1BO 


CALL 


1B2CH ; 


FODLDC IN HENDRY 


FC65 D218F0 


IH9I 


JP 


NCfMOERR I 


NO ERROR/ERL TOO BIG 


FC48C5 


11518 


PUSH 


bc ; 


PUT START OF LBC Bl HL 


FC69E1 


11510 


POP 


HL 




FC4AE5 


01520 


PUSH 


hi ; 


STORE POS 


FC4B ZA72F0 


11531 


LD 


HU(TSTR) ! 


GET LUC NUMBER 


FC6E CDAFOF 


01510 


CALL 


0FAFH ; 


PRINT LDC NUMBER 


FC71 3E2I 


II 1551 


LD 


a,2ih ; 


BLANK AFTER LBC 1 


FC73 a>338« 


08561 


CALL 


33H ; 


PRINT BLANK 


FC74 El 


11570 


PGP 


hl ; 


GET U* POS. 


FC77 ED5BF711 01581 BTFIMD 


LD 


DE.dlFTH) ; 


GET ADDR. OF ERROR -1 


FC7B IA 


01591 


LD 


A,(DE) ; 


GET POINT OF ERROR 


FC7C B7 


01410 


OR 


a ; 


IF A=l, ERROR AT START 


FC7DCCC4FC 


11411 


CALL 


z.here ; 


OF LDC, SO, HARK IT 


FC80 HUM 


11421 


LD 


bc,i ; 


SKIP LINE* 


FC83 19 


01431 


ADD 


HL.BC ; 


AHDHECT LDC POINTER 


FC81E5 


IMU 


PUSH 


hl ; 


STORE HL 


FC85 13 


01451 


DC 


de ; 


ADDR. OF ERROR NOW 


FC86D5 


11441 


PUSH 


oe ; 


STORE IT FOR LOOPB 


FCS7D1 


11470 LOOT 


POP 


de ; 


GET ADDR. OF ERROR 


FC88 El 


11480 


POP 


HL 


GET POS. IN TEXT LDE 


FC89 C09I1C 


11490 


CALL 


1C9IH ; 


ARE HE AT THE ERROR? 


FC8C CCC4FC 


11711 


CALL 


Z.HERE ; 


IF SO, NARK IT. 


FC8F 7E 


11711 


LD 


a,(hi) ; 


GET CHARACTER 


FC9I 23 


11721 


DC 


hi ; 


BUMP POS IN TEXT LBC 


FC91 E5 


01730 


PUSH 


*. ; 


STORE IT FOR LATER 


FC92 D5 


11711 


PUSH 


de ; 


STORE ADDR. OF ERROR 


FC93B7 


11751 


OR 


a ; 


SET FLAGS 


FC91 CAE2FC 


01741 


JP 


z,ex ; 


IF A=l, END OF LBC 


FC97 FA9FFC 


01770 


JP 


H,TOKEN ; 


F BIT 7 SET, A TOKEN 


FC9A C033M 


11780 


CALL 


33H ; 


ELSE PRINT CHARACTER 


FC9D 18E8 


11791 


JR 


LOOPB 


CONTINUE TUX EOL 


FC9F FEFB 


01891 TOKEN 


CP 


•FBH 


TEST FOR "'" REN 


FCA1 CCI4FD 


01810 


CALL 


Z.BACKUP 


BACK UP OVER GARBAGE 


FCM 047F 


01820 


SUB 


127 


FD© POS IN RH TABLE 


FCA4 17 


01834 


LD 


B,A 


PUT POS BIB 


FCA7 215114 


11811 


LD 


HL.1451H 


START OF RH TABLE 


FCAA 7E 


00850 lOQPC 


LD 


A,(HL) 


GET A BYTE 


FCA6B7 


01841 


OR 


A 


SET FLAGS 


FCAC 23 


00870 


BC 


HL 


BUMP POS. IN TABLE 


FCADF2AAFC 


11881 


JP 


P.LOOPC 


JUMP B" NOT START OF RH 


FCBI 1IF8 


01891 


DJlC 


LOOPC 


KEEP GOING TILL OUR RH 


FC82 E47F 


10911 


AND 


127 


CLEAR BIT 7 


FCBI E5 


01910 


PUSH 


HL 


STORE HL 


FCB5 CD330I 


00920 


CALL 


33H 


, PRINT CHARACTER 


FC88 El 


00930 


POP 


HL 


; RESTORE HL 


FCB9 7E 


00910 LOOM) 


LD 


A,(HJ 


J GET NEXT BYTE OF RH 


FC8A 23 


0195O 


BC 


H. 


; BUMPPOBfTER 


FCBB B7 


01941 


OR 


A 


! SET FLAGS 


FC8C FA87FC 


01971 


JP 


M,L0OP6 


; DONE KITH TOKEN 


FC8FE5 


10981 


PUSH 


HL 


! STORE HL 


FCCI CO3300 


01990 


CALL 


33H 


; PRINT CHARACTER 


FCC3E1 


11100 


POP 


H. 


i RESTORE HL 


FCCI 18F3 


91111 


J) 


LOOPD 


; CONTINUE TILL DONE 


FCC4 F5 


01020 HERE 


PUSH 


AF 


! STORE BYTE HERE 


FCC7 3E20 


01030 


LD 


A,32 


; space 


FCC9 C0336I 


11010 


CALL 


33H 


; PRINT SPACE 


FCCC3E99 


11051 


LD 


A, 153 


; GRAPHIC HARKER 


FTXECD330I 


11140 


CALL 


33H 


; print n 


FCD1 3E99 


11071 


LD 


A.153 


1 HARKER AGABI 


FCD3 C03300 


11180 


CALL 


33H 


; PRINT IT 


FCD4 3E99 


11191 


LD 


A,153 


; YOU KNOH BY NOM 


FC06 CD3308 


Hill 


CALL 


33H 


; PRINT IT 


FCOB 3E21 


tllll 


LD 


A.21H 


I SPACE 


FC00C033M 


11121 


CALL 


33H 


', PRINT IT 


FCEI Fl 


11131 


POP 


AF 


; RESTORE ORIGINAL BYTE 


FCE1 C9 


11111 


RET 




; DONE 


FCE2 3EW 


(U5t EOL 


LD 


A,13 


; CARRIAGE RETURN 


FCE1CD33M 


11141 


CALL 


33H 


; PRINT LBC 


FCE7 3EI0 


11171 


LD 


A,13 


! ANOTHER CR 


FCE9CD33H 


11181 


CAUL 


33H 


! PRINT IT 


FCECE1 


11191 


POP 


HL 


; GET RID OF 


FCEDE1 


11211 


POP 


HL 


; GARBAGE ON STACK 


FCEE 3A7*D 


imi 


LD 


A,<TOVU) 





FCF1 32AF1I 


01220 


LD 


(10AFH),A ; 


RESTORE VARIABLE TYPE 


FCF1 3ACDFD 


01231 DEXTT 


LD 


A.(HONE) ; 


HHD CALLED THIS? 


FCF7B7 


01211 


OR 


* J 


SET FLAGS 


FCF8CI 


01251 


RET 


HZ ! 


BACK TO CALLER ROUTINE 


FCF9E1 


01260 


POP 


hl ; 


PULL RETURN OFF STACK 


FCFA 3A9A1I 


01270 


LD 


A,(109AH) I 


GET ERROR CODE 


FCFD 5F 


01281 


LD 


e,a ; 


PUT IT DIE 


FCFEFB 


11291 


EI 






FCFF 0000 


01301 DZAP 


DEFH 


0000 




FD01 01 


01310 DZAP1 


DEFB 


II 




FD02 FB 


01320 


EI 






FD03 CDA911 


01330 


CALL 


11A9H ; 


DOS HILL TAKE OVER NOW 


FDS6E5 


11310 BACKUP 


PUSH 


hl ; 


STORE IT 


FD17F5 


01350 


PUSH 


af ; 


STORE IT TOO 


FD08'2111FD 


01340 


LD 


HL.BUHESG J 


BACKUP STRING 


FD0BCDA728 


01370 


CALL 


28A7H ; 


PRINT IT 


FDOE Fl 


11381 


POP 


AF 




FD0F El 


01390 


POP 


HL 




FD10 C9 


01108 


RET 






FD11 0818 


01111 BUHESG 


DEFH 


08I8H ; 


BACKSPACES 


FD13 0818 


11120 


DEFH 


0818H 




FD15 1828 


81130 


DEFH 


2II8H 




FD17 00 


HMO 


DEFB 


0IH ; 


HESG. TERKDMTOR 


FD18 3A71FD 


11151 NOERR 


LD 


A.tTOVU) i 


RESTORE VARIABLE TYPE 


FD1B 32AF11 


11141 


LD 


(10AFH),A ; 


DESTROYED BY 27ABH CALL 


FD1E 3EI1 


11170 K1K1 


LD 


a.oih ; 


STORED FOR LATER 


FD2I 329A16 


11181 


LD 


(119AH),A J 


USE ON ERROR EXIT 


FD23FB 


01190 


a 






FD21 C3F1FC 


01511 


JP 


DExn ; 


DOS EXIT 


FDZ7 1E 


11510 NESGN 


OEFH 


'No Error Found! ' 




4F 21 15 72 72 6F 72 20 14 4F 75 6E 41 21 




FD34 ID 


01520 


DEFB 


0DH 




FD37 01 


01530 


DEFB 


0IH 




FD38H 


11510 ICSGD 


DEFH 


'Data examination reveals last set of data 


61 71 41 21 45 78 41 4D 49 4E 41 71 49 6F 6E 21 


accessed was !' 


72 45 74 45 41 4C 73 21 4C 41 73 71 21 73 45 71 




20 4F 44 20 61 61 71 61 20 61 43 63 45 73 73 45 




41 21 77 41 73 21 3A 








FD7I » 


01551 


DEFB 


IDH 




FD71 11 


11541 


DEFB 


IIH 




FD72 Hit 


11571 TSTR 


DEFH 


iiiih ; 


TEMP. LBC * STORAGE 


FD71 00 


11581 TOW 


DEFB 


10H ; 


TYPE OF VARIABLE USED 


FD75F3 


01591 STARTD 


DI 






FD76 2138FD 


01401 


LD 


HL.HESGD 




FD79 3AAF11 


11611 


LD 


A.dDAFH) 




FD7C3271FD 


11621 


LD 


<TOVU),A 




FD7FCDA728 


11431 


CALL 


28A7H 




FD8Z 21FF11 


01410 


LD 


HL,10FFH 


BYTE AFTER LAST USABLE 


FD85 2279FC 


01450 


LD 


(BTFTND+Zi.HL , 


DATA READ IN 


FD8B 21DA10 


81441 


LD 


H.10DAH ! 


LBC » FOR DATA STMT 


FD8B225CFC 


01471 


LD 


(LTFBO+D.HL J 


STORE IT 


FD8E 2AFF1I 


01481 


LD 


HL.dOFFH) ; 


GET POS 


FD91 7E 


01490 


LD 


A,(HL) 


HHAT'S THERE 


FD92 B7 


01710 


OR 


A 


SET FLAGS 


FD93 281I 


01711 


JR 


Z, NODATA 


ff NO DATA, SKIP 


FD95CD5BFC 


11720 


CALL 


LTFTND 




FD98 21EA10 


B1730 Kll 


LD 


HL,10EAH 


RESTORE OTHER PART 


FD98 225CFC 


01710 


LD 


(LTFTND+1),HL 


(ERROR FINDER) 


FD9E Z1F710 


01750 


LD 


HL.10F7H 




FDA1 2279FC 


01740 


LD 


(BTFTNJH2),HL 




FDM C9 


01770 


RET 






FDA5 21B3FD 


01780 NODATA 


LD 


HL.HESGND 


NO DATA FOUND 


FDA8 CDA728 


01791 


CALL 


28A7H 


PRINT MESSAGE 


FDAB 3A71FD 


01800 


LD 


A,(TOVU> 


RESET VARIABLE TYPE 


FW€ 32AF10 


01811 


LD 


(10AFH),A 


TO FIX TH ERROR 


FDB1 18E5 


01820 


JR 


Kll 


RESTORE THINGS CHANGED 


FDB3 1E 


01831 HESGND 


DEFH 


'No data statement found! ' 


4F 20 61 61 71 41 20 73 71 41 


71 45 4D 45 4E 71 




21 44 4F 75 6E 61 21 








FDCB 0D01 


81810 


DEFH 


0I0DH 




FDCD 01 


01851 HOME 


DEFB 


0IH 




FDCE 12 


01841 DOSCM 


DEFH 


'BASIC,41512,DEFUSR«=«HFC13:X=USR(1): 


11 53 19 13 2C 34 31 35 31 32 


2C H 15 14 55 53 


DEFUSRI3UFD7A' 


52 30 3D 24 18 14 13 31 33 3A 58 3D 55 53 52 28 




31 29 3A 11 15 14 55 53 52 31 


3D 24 18 14 11 37 




11 
FEII ID»I 


11871 


DEFH 


IIIOH 




FE02 2D 


11881 BANNER 


DEFH 


' Error Finder Ver. 2.1 By 








X - 


USR(I) to trace data ' 


Hike Brotherion 






Uil\\ • r WW Wl out WW 


2D 2D 2D 2D 2D 2D 2D 


ZD 21 15 72 72 4F 72 21 16 




69 6E 61 45 72 21 21 21 56 45 7Z ZE 21 32 2E 31 




21 21 21 12 79 21 1D 69 46 45 21 12 72 6F 71 48 




4572 714F4E212DZD2DZD2D2D2D2DZD20 





2D2D2D2D2D2D2D2DZ92D2D2D2D2D2D2D 
2D2D2D2DZ02D2I5B2I3D2I5553 52 2B3I 
29 21 7^ tf 21 71 72 41 A3 45 21 44 41 71 41 21 

FE73 20 11891 DEFH ' ' 

2D2D2D2D2D2D2D2D2D2D2D2D2D20 
FF.82 II 11911 DEFB II 

FF.B3 21CEFD 11911 START1 LD H.DOSCn 

FE84C3I544 11921 J> MOW 

FF.B3 11931 00 START1 

tlliO TOTAL ERRORS 



BACKUP FDI4 

D0SO1 FTXE 

KU F098 

LOOPO FCB9 

ICSOD FDB3 

START2 FC13 

HOC FTXO 



BAMCR FEI2 

OZAP FCFF 

KIK1 FDIE 

LTFD© FCS 

NODATA FDA5 

STARTO FD75 



BTFDO FC77 

DZAP1 FDI1 

LOOPS FC32 

ICSGI FCII 

NOERR FD18 

TOO FC9F 



DOS COHAJD/DFJO Of) 
BASIC AUTOMATICALLY' 



BUHESG FOU DEXTT FCF4 

EX FCEZ ICRE FCC4 

LOOPB FC87 LOOK FCAA 

ICSGO FD3B ICSGH F027 

START FC13 START1 FE83 

TOW FD74 TSTR F072 



CONVERTING SUPER UTILITY PLUS VERSION 3 TO A /CMD FILE 
by Arne Rohde 

The Super Utility Plus program, version 3.0 ( provided on a 
self-booting disk can be converted relatively easily to a /CMD 
file which can be called directly from the DOS READY prompt. It 
is Super Utility itself, with the memory modify feature which 
makes this possible. 

Before I continue, I would like to make one thing perfectly 
clear. I am not a fan of Super Utility, and I do not own a copy of 
it. The conversion was done for a friend who has it and uses it. I 
admit that I am impressed by the programming which Kim Watt has 
done, and the program can certainly perform many things, but I am 
sticking to my trusty old Superiap from NEWDOS/80, and a 
home-grown zap utility which can be modified and extended and 
converted as much as I please. In other words, I am not in the 
Super Utility backup industry, and have no intention of getting 
into it. Also the usual warning - do NOT use this procedure for 
making backup copies for others. If you need SU+ then buy a copy 
and make backup copies for your own personal use. 

The version that I have seen will load and use up to about 
address D500H (all values from now on will be in hexadecimal). 
Unless you perform some disk I/O the area from address D500 
should be free for inserting any desired code and saving the code 
which will be overlaid by the DOS. Before you start making /CMD 
files from SU+, you should make all the necessary configuration 
changes. You CANNOT permanently configure the /CMD version 
using the write to disk option from the program configuration, you 
will have to produce a new /CMD file from scratch if you want it 
reconfigured permanently. 

Start the process by loading SU+ and configuring as desired. 
Then use the memory display or string search to find a reference 
to the keyboard strobe at 3840. On the Model I the instruction 
sequence 3A4038 should be found at or near location 4301, on the 
Model III at address 42FB. This loads the keyboard strobe 
containing the Break key into A. The location of this instruction 
should be noted, as it is required later. 

Now use the memory modify to enter the following 
instructions from address E700! 



Location 


Value 


Instruction 


E700 


F3 


Dl 




E701 


313141 


LD 


SP.4131H 


E704 


010012 ** 


LD 


BC,1200H 


E707 


110040 


LD 


DE.4000H 


E70A 


2100D5 


LD 


HL.D500H 


E70D 


EDBO 


LDIR 




E70F 


Fl 


POP 


AF 


E710 


ED47 


LD 


I,A 


E712 


Fl 


POP 


AF 


E713 


El 


POP 


HL 


E714 


Dl 


POP 


DE 


E715 


CI 


POP 


BC 


E71t 


D9 


EXX 




E717 


08 


EX 


AF.AF' 


E718 


FDE1 


POP 


IY 


E71A 


DDE1 


POP 


IX 


E71C 


Fl 


POP 


AF 


E71D 


El 


FOP 


HL 


E71E 


Dl 


POP 


DE 


E71F 


CI 


POP 


BC 


E720 


C30143 « 


JP 


4301H 



The address in the last line should be set to the address 
found earlier. On the Model III the new value will probably be 
42FB making the instruction C3FB42. 

This is the code for restoring the status and jumping to the 
address where SU+ can be restarted. I have not taken the time to 
find out whether it is necessary to save and restore all the 
registers, but it is very important that the I register (used ^^ 
interrupt base addressing) is restored. This register is norrm 
not used in TRS-80 programs, which is probably why Kim Watt 
chose to check it and catch some of the would-be back up copies. 

The next piece of code is the code which will be executed 
when the /CMD file is to be produced. We will place this code at 
location E730, out of the way of the previous code. 



Location 


Value 


Instruction 


E730 


F3 


Dl 




E731 


C5 


PUSH 


BC 


E732 


D5 


PUSH 


DE 


E733 


E5 


PUSH 


HL 


E734 


F5 


PUSH 


AF 


E735 


DDE5 


PUSH 


BC 


E737 


FDE5 


PUSH 


BC 


E739 


08 


EX 


AF,AF' 


E73A 


D9 


EXX 




E73B 


C5 


PUSH 


BC 


E73C 


D5 


PUSH 


DE 


E73D 


E5 


PUSH 


HL 


E73E 


F5 


PUSH 


AF 


E73F 


ED57 


LD 


A,I 


E741 


F5 


PUSH 


AF 


E742 


ED7302E7** 


LD 


(E702H)»SP 


E746 


3E3A 


LD 


A.3AH 


E748 


320143 * 


LD 


(4301H),A 


E74B 


214038 


LD 


HL.3840H 


E74E 


220243 * 


LD 


(4302H),HL 


E751 


010012 *# 


LD 


BC.1200H 


E754 


1100D5 


LD 


DE.D500H 


E757 


210040 


LD 


HL.4000H 


E75A 


EDBO 


LDIR 




E75C 


76 or C30000 


HALT 


Dr JP0OOOH 



The lines containing single asterisks will have to 
modified depending on where the original load instruction w, — 
found. They will probably be 42FB and 42FC for the Model III. 
The first of the two instructions converts the original instruction 
code back to the original value, and the second instruction 
restores the address from the instruction. The lines marked with 
double asterisks will have to be modified if the instructions are 
moved to an address other than E700. 

The last line of the status save can be a HALT instruction 
on the Model I, or a jump to location 0000, which will not reset the 
hardware and disk density. On Model III the jump instruction 
should probably be used. 

After making these changes, a DOS disk should be mounted 

in drive zero, and the instruction at location 4301 (or 42FB or 

wherever) modified. Change the original 3A4038 value to the 

following value! 

3 C330E7 

which is a )ump to the code which will save the status and reboot 

the DCS system. Now press Shift Break in SU+ to make it return 

to the original menu. Instead of seeing the menu, your DOS 

system should reboot. 

After the DOS has been loaded, perform the following DUMP 
instruction as the first thing you do. 

DUMP SU/CMD,5200H,E77FH,E700H 
This is the format for NEWDOS/80 which allows code to be 
dumped from address 5200H. If you are using a DOS which does 
not allow you to dump from address 520OH then either get 
NEWDOS/80, or modify the instructions above so that the code is 
moved higher up in memory. If you can only dump from location 
7000H and above you're out of luck unless you are sure you can 
use addresses above about CFB0H in SU+. I haven't tried it, and I 
haven't found the lowest address unused by SU+. 

One final word of caution. Take the SU+ disk out of the 
drive before you start this procedure, and use a backup copy of 
your DOS system for your first attempt. And if you can't get *•* -- 
procedure to work then either find someone conversant in TRS 
assembler code, or give up the project. Please do NOT write ai.w 
ask for advice. By the time you read this I will be moved to 
another as yet unknown address, and I cannot guarantee that I 
will receive the letters or answer the correspondence. 
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DOCUMENTATION FOR MENU/CMD 
By Jim Doffing 

MENU/CMD is a program that was written because of 
laziness on my part, and because I thought that the computer 
should be able to do most of the redundant things that I had been 
doing, such as typing DIR after returning to DOS. There were 
other things that I did repeatedly, such as going to DEBUG, going 
to BASIC, and typing in the names of the programs that I wanted 

tD ""when I started this pro)ect, there weren't any such programs 
on the market. Since then there have been two introduced. When 
you are not the first, you are a copycat so I decided to release 
this program into public domain. It is free for the taking and it 
has served me well for 2 years now. 

This program is rather lengthy, but that is because I wanted 
it to work from another TRS-80 using modems or directly 
connected by RS-232 cables. 

So much for the introduction. 

To install this program on a TRSDOS 1.3 Diskette you MUST 
follow directions to the letter. What you are going to do is 
install this program as a system file. When you get through you 
will not be able to get this program to show up on a directory. It 
will be hidden just like the FORMAT & the BACKUP files are. 

Remember that the following instructions must be just as I 
have them outlined. If you downloaded these programs from a BBS 
you will probably have to convert them to /CMD format. 

Instructions! 

1. Make a backup of your original TRSDOS 1.3 Diskette (I 
will refer to the new disk as the installation diskette). 

2. Erase all three visible files. (LFC/CMD, MEMTEST/CMD S, 
HERZ50/BLD) from the installation diskette. 

3. Insert the installation diskette into Drive zero. 

4. Type "CREATE DUMMYIO <REC = 183)", then press the 

vENTEIO key* 

At this point, If you type "FREEJO" a/id press the <ENTER> 
key, you should have displayed on the screen! 

Free Space Hap 

T* » TKSOOS **™'' • 

IM4 xxxxxx : xxxxxx : xxxxxx : xxxxxx : xxxxxx 

•s-e? xxxxxx : xxxxxx : xxxxxx : xxxxxx : xxxxxx 

11-14 xxxxxx : xxxxxx : xxxxxx : xxxxxx : xxxxxx 

15-1? XXXXXX ! XXXXXX : Direct i xxxxxx : xxxxxx 

21-21 XXXXXX ! XXXXHt ! ! ' 

25-29 : : ! ; 

3i-3i : : : : 

35-3? : : : 

TKSOOS Ready 

The "MM" at the end of track 21 will show up as periods on 
vour video display. This is where MENU/CMD will be located. All 
the available spaces up that point should be "X". If there are any 
oenods on the Free Space Map between track 00 and track 21 then 
you will have to increase the number of "REC=183" by three for 
every period and go back to step 4. If there are X's in the 
positions of the M's or beyond then you will have to decrease the 
number of "REC=183" by three for each "X" and go back to jstep 4. 
As a final check Type "DIR !0 (INV.SYS)" and press the <ENTER> 
key. You should get four files displayed! 

BASIC/CMD 

CONVERT/CMD 

XFERSYS/CMD 

DUMMY 
5. At this point you should insert the installation diskette 

lflt ° t?Insert the Diskette containing MENU/CMD into Drive #0 
and copy MENU/CMD to the installation diskette. 

7. With the installation Diskette in Drive *1 type 
"MENINSTL" and press the <ENTER> key. 

8. At TRSDOS Ready you can type "MENU" and press the 
<ENTER> key. When the MENU is displayed you should see only 
one file, "DUMMY". If you now press the "K" key and then the 
"Y" key you will have killed "DUMMY". If you now type DIR and 
press the <ENTER> key, there shouldn't be any file names 
displayed. If MENU/CMD or any other file name is displayed, you 
didn't follow the instructions and you will have to start over. 

9. If you have followed the above instructions you will now 
be in possession of a diskette that will save you much time. 



10. MENU will now show up on the library of commands by 
typing "LIB" and pressing the CENTER> key. 

11. If the program does not work (heaven forbid) try again 
and remember to follow the sequence exactly. 

Features! 

I find that if you type "AUTO MENU" and press the <ENTER> 
key, when ever you use that diskette in drive #0 and press the 
reset key it will automatically give a MENU. 

After the MENU program is active! 

You will notice that there are the "<" and the ">" symbols 
surrounding the first file name on the diskette. 

Pressing the "K" key will result in the message. Are you 
sure you want to KILL (file)!0? (Y/N) 

If you press the "Y" key the program will be killed. If you 
press the <BREAK> or the "N" keys the kill will be aborted and 
the "<" and the ">" will return to the first file name. 

Pressing the "C" key will result in the message! Copy to 

which drive? ... ^ ■ ___ 

If you press the "1" key, that file will be copied to drive one 

and upon completion you will be returned to the display of the 

"^Pressing the <ENTER> key will run any file with an 
extension of VCMD" or will DO any file with the extension of 
VELD" All others will be treated as BASIC files and will be auto 
loaded with BASIC. If the file lS a data file you »&'"?%£. 
error from BASIC. I have found that it is best to use the /BAS 
extension so you can tell a BASIC file. The «»«"«**""■* 
people leave the VBAS" extension off is so that they won t have 
to type it every time that they want to run the program. ^ Now you 
don't have to type a BASIC file name again. If you end your basic 
programs with <CMD"S") instead of (END) then you will 
automatically be back in the MENU, ready for selection of your 
next program. 

Pressing the "B" key will put you in BASIC. 

Pressing the "D" key will put you in DEBUG. 

Pressing one of the arrow keys will move the »<" and the > 
to the next file name in the direction of that arrow key. 

Pressing a number key will get a MENU of that drive. It will 
not violate the maximum number of drives established at powerup. 

Drawbacks! 

Some programs do not use the returns provided for returning 
to TRSDOS and may not function correctly. I have found that most 
programs will work just fine. The programs i that execute , DOB 
commands from within the program are usually *•* «« \* ™J. 
have problems with. When you run across one like that you win 
have to use regular TRSDOS 1.3 with it. The other Programs that 
I have had trouble with are the ones that leave an active , . :«rit m 
the area of the MENU program. One of the first «»"9« *J£ 
MENU does when it loads is to reestablish the stack at the 
TRSDOS location to avoid troubles. *„ ^ mfmij 

When DOing a file the program will not return to the MENU 
so you will have to type "MENU" again from TRSDOS Ready. 
Hopefully you will not hurt your fingers when you do so. 

My Name is Jim Doffing I live at 5*02 N. 49th, Ja«m*, 
Washington 98407. If you make any changes to the MENU 
program I would be interested. If you cannot manage the >**»** 
for what ever reason, I will install the program for you or a ^copy 
of TRSDOS 1.3 that you provide for S10.00 to cover my time and 
return postage. Good Luck and Happy Computing. 

[The source code listing for MENINSTL/CMD follows the 
listing for the MENU/CMD program below! 

Hilt JieNU/Ot) by Jin Doffing of Tacona, Washington 11/26/83 
IIKO JThis prwra* -ill *** it easier *»«""»"* 
11130 icowuter user to nafce the nost of (his.her) Hod in. W 
•1140 iusing TRSDOS 1.3. It will recognize program with an 
•1150 iextension of ZOO or /BID, treating all others as basic 
•••40 iprograns. By using the arrow Keys you can "°*Jj*™r 
•1171 isors to enclose the desired program Pressing the EKTER 
11180 **i, will run the progra* or 00 the /RD File. Pressing 
•((90 !a nurier between • and 3 will get a directory of that 
••lit Jdrive, pressing BREAK will return to TRSK&J^".?™ 
••HI {pressing '0' will load and r«n DEBUG. IBM/CW will 
••120 Jiwdify the return to DOS vector so the systen will load 
••130 tin! run 1BWX) instead of r<*-™J*°°f • m 

4EII M14« ORG 1EMH ;PR0GR«t LOCAHON t ST«T 



4E0I 319F44 


11151 ST 


LD 


SP,409FH 


1 


RESTORE STACK POINTER 


4E77 2004 


04984 


JR 


N2.NXTFIL 


IF SO NEXT FILE 


4EI3 F5 


II 140 


PUSH 


AF 


[SAVE REGISTERS 'AF' 


4E79 FEOO 


00990 


CP 


OOH 


IS IT A BLANK POSITION 


1EI4 3EFT 


11171 ST1 


LD 


A.4FFH 


iPUT OVERLAY 15 NUMBER 


4E7B 2125 


01000 


JR 


NZ.DISFIL 


IF SO, DISPLAY NAME 


4E96 327712 


11181 


LD 


(4297H),A ! DfTO RETDOS OVERLAY 


4E7D 2A154E 


01010 NXTFIL 


LD 


HL.OLSAV) 


GET LAST FILE LOCATION 


4E09 Fl 


40190 


POP 


AF 


; AND 'AF' 


4E8I ED5B114E 11020 


LD 


DE, (FILOFF) 


DE=> OFFSET TO NEXT FILE 


4E4A C31D4E 


18210 


JP 


START 


ICO TO PROG START 


4E84 19 


01030 


ADD 


H_,DE 


ADD WITH SUM IN 'HL' 




I02U [system caus and standard addresses 


4E85 7C 


01040 


LD 


A.H 


'H' INTO 'A' FOR TEST 


1640 


01228 READ 


EQU 


4BIDH 


[SYSTEM "READ DIR SECTOR" ROUTINE 


4E84 FE4E 


01950 


CP 


SECEND 


IS IT PAST END OF BUFFER 


921B 


••230 PRTLN 


EQU 


I21BH 


[SYSTEM "PRINT LDC OF TEXT" RTN 


4E88 3002 


01960 


JR 


NC.NXTSEC 


IF => THEN NEXT SECTOR 


4020 


01240 CURPOS 


EQU 


4020H 


[SYSTEM STOR FOR CURSOR POSITION 


4EBA 18E5 


01070 


JR 


DISDI 


IF NOT GET NEXT FILE 


1119 


•0250 DKEY 


EQU 


0049H 


[SYSTEM "CO KEY PRESS" ROUTDC 


4E8C 3A104E 


01080 NXTSEC 


LD 


A, (TEHSEC) 


A=> PRESENT SECTOR NUM 


4920 


00240 DOS 


EQU 


402DH 


JSYSTEM "RETURN TO DOS" CALL 


4E8F ED5B4D4E 01090 


LD 


DE, (TABLE) 


DE=> TRK J SEC 


6133 


II27I VDCW 


E0U 


0I33H 


[SYSTEM "CHARACTER TO VIDEO" RTN 


4E93 X 


91100 


INC 


A 


'A'='A'+1 


429C 


01281 COHDOS 


EQU 


429CH 


(EXECUTE DOS COHHAM) ROUTINE 


4E94 5F 


oiiio 


LD 


E,A 


NEH SECTOR INTO 'E' 


4225 


•1291 DOSBUF 


EQU 


4225H 


J0OS COMMAND BUFFER ADDRESS 


4E95 FE13 


01120 


CP 


190 


ARE HE PAST SECTOR 18 


4411 


01310 T0PW1 


EQU 


4411H 


;TOP OF USER MEMORY STORAGE 


4E97 38C8 


01134 


JR 


CDISD0 


IF < 19 THEN NEXT SECTOR 


40H 


•1310 SEC8UF 


EQU 


4D00H 


[PROGRAM "SECTOR STORAGE" ADDRESS 


4E99 2A2040 


01140 


LD 


HL.(CURPOS) 


aSE GET CURSOR POSITION 


FFFF 


00320 ORN0 


EQU 


0FFFFH 


[STORAGE OF LAST DRIVE * 


4E9C 221B4E 


01150 


LD 


(LAST).HL 


STORE FOR COMPARE 


041E 


00330 SECFJ* 


EQU 


4EH 


[PROGRAM "DC OF SECTOR" CHECK 


4E9F C3D14F 


91140 


JP 


SEL1 


GOTO SELECTION ROUTINE 


9120 


•1340 SPACE 


EQU 


20H 


[ASCII ' ' (SPACE) 




01170 [ 








901F 


10354 CLS 


EQU 


1FH 


[CLEAR TO BOTTOM OF SCREEN 




01180 [NOW ME DISPLAY THE FILE NAME OF THE USER FILE 


1110 


01340 CR 


EOU 


4DH 


[CARRIAGE RETURN J LDC FEED 




01190 [ 








001A 


00371 DMJ 


EQU 


1AH 


[DOHN ONE LDC ON VIDEO 


4EA2 ED5B134E 11200 DISFIL 


LD 


DE,(FHNAH) 


DE=> OFFSET TO FILE NAME 


• •IB 


•0384 UPLN 


EQU 


1BN 


[UP ONE LDC ON VIDEO 


4EA4 19 


01211 


ADO 


HL,DE 


ADO TO 'HL' INTO 'HI' 


0118 


00391 BKSP 


EQU 


18H 


[BACKSPACE WITHOUT ERASE 


4EA7 0413 


01220 


LD 


B,8 


B=> MAX CHARS IN NAME 


• 118 


01401 BKSPER 


EQU 


08H 


[BACKSPACE WTO ERASE 


4EA9 OEtl 


91230 


LD 


C00H 


C=> ZERO FOR COUNTER 




00411 [PROGRAM STORAGE OF VARIABLES 


4EAB 7E 


01240 DISFO 


LD 


A,(HL) 


NEXT CHAR INTO 'A' 


4E0D 


01420 TABLE 


EQU 


t 


[ADDRESS FOR LOADING TRK AND SEC 


4EAC FE2I 


01250 


CP 


SPACE 


IS IT A SPACE 


4E0D 13 


00430 SEC 


DEFB 


03H 


[FIRST SECTOR OF OIRECTORY 


4EAE 2807 


01260 


JR 


Z.EXT 


IF SO PUT ON EXTENSION 


4E0E 11 


•1440 TRK 


DEFB 


11H 


[TRACK NUMBER OF DIRECTORY 


4EBI CD0952 


01270 


CALL 


PRTCHR 


aSE PRINT CHR TO VIDEO 


4E0F SI 


00450 DR 


DEFB 


OOH 


[BINARY DRIVE NUMBER 


4EB3 0C 


01280 


INC 


C 


KEEP TRACK OF VIDEO CHRS 


4C1I It 


00460 TEHSEC 


DEFB 


OOH 


[TEMP STOR OF ACTIVE SECTOR 1 


4EB4 23 


01290 


INC 


HL 


SET UP FOR NEXT CHAR 


4E11 3111 


00471 FTLOFF 


DEFH 


0030H 


[OFFSET FROM ONE FILE TO NEXT 


4EB5 10F4 


01300 


DJNZ 


DISFO 


DISPLAY NAME UNTIL DONE 


4E13 1511 


00480 FIUWI 


DEFW 


00I5H 


[OFFSET FILE START TO FILE NAME 


4EB7 CD034F 


01310 EXT 


CALL 


LOOP 


MOVE 'HL' TO EXT, CHRS 


1112 


00490 HLSAV 


DEFS 


2 


[IN MEM NEXT FILE LOCAT. 


4EBA 0403 


01320 


LD 


B,3 


MAX NUM EXT. CHARS 


•112 


00500 FILE1 


DEFS 


2 


[PRESENT FILE LOCATION 


4EBC 7E 


01330 


LD 


A,(HL) 


FIRST CHR INTO 'A' 


•112 


•0510 HL2 


DEFS 


t 


[TENP STOR FOR 'HL' REGISTER 


4EBDFE2I 


01340 


CP 


SPACE 


IS IT A SPACE (NO EXT) 


1112 


00520 LAST 


DEFS 


2 


[LAST FILE NAME DISPLAYED 


4EBF 2812 


01359 


JR 


Z.DRNUH 


IF SO ADD DRIVE NUMBER 




00531 i 








4EC1 3E2F 


01340 


LD 


A,'/' 


aSE PUT SLASH INTO 'A' 




01540 {START OF PROGRAM 




4EC3CDD952 


01370 


CALL 


PRTCHR 


PUT IT ON VIDEO 




••554 ; 








4EC4 IC 


01380 


INC 


C 


KEEP TRACK OF VIDEO CHRS 


4E1D E6F9 


00540 START 


AM) 


4FIH 




MASK OFF OVERLAY 


4EC7 7E 


01390 EXT1 


LD 


A,(HL) 


PUT NEXT CHR INTO 'A' 


4E1F FEF4 


00571 


CP 


0F0H 




CALL FROM MODIFIED DOS 


4EC8 FE20 


01400 


CP 


SPACE 


IS IT A SPACE 




00580 








ENTRY? 


4ECA 2807 


01410 


JR 


Z.DRNUM 


IF SO ADD DRIVE NUMBER 


4E21 2«f 


10590 


JR 


NZ.STRT1 




F NOT GOTO START1 


4ECC CDD952 


01120 


CALL 


PRTCHR 


aSE PUT ON VIDEO 


4E23 3EIF 


00480 


LD 


A.0FH 




TURN OFF 


4ECF 0C 


01430 


INC 


C 


KEEP TRACK OF VIDEO CHRS 


4E25 CDD952 


00410 


CALL 


PRTCHR 




CURSOR 


4ED9 23 


01440 


INC 


HL 


POINT TO NEXT CHAR 


4E28 3EBI 


00420 


LD 


A.0B0H 




DEFAULT CURSOR CHAR 


4ED1 18F4 


01150 


DJNZ 


EXT1 


DO UNTIL DONE WITH EXT 


4E2A 322340 


00430 


LD 


(4023H),A 


STORE IN CURSOR CHAR 


1ED3 3E3A 


01440 DRNUM 


LD 


A,'[' 


A=> COLON 


4E2D 3AFFFF 


00440 


LD 


A,(DRNO) 




SEE IF MAYBE STILL GOOD 


4ED5CDD952 


01470 


CALL 


PRTCHR 


PUT ON VIDEO 


4E30 184B 


00450 


JR 


START1 




GET DRIVE 10 HEXU 


4ED8 0C 


01480 


DC 


C 


KEEP TRACK 


4E32 7E 


00440 STRT1 


LD 


A,(HL) 




CHECK TO FIND 


4ED9 3AFFFF 


01490 


LD 


A,(DRNO) 


A=> ASCn DRIVE NUMBER 


4E33 FEOO 


00470 


CP 


OOH 




EITHER A CARRIAGE RETURN 


4EDC CD0952 


01500 


CALL 


PRTCHR 


PUT ON VIDEO 


4E35 2819 


•0480 


JR 


z.pumo. 




if CR then Drive M 


4EDF 0C 


01510 


INC 


C 


KEEP TRACK 


4E37 FE3A 


00490 


CP 


'!' 




OR A COLON 


4EE8 3A204O 


01520 


LD 


A,(CURPOS) 


A=> LSB CURSOR POSITION 


4E39 2112 


00700 


JR 


MZ.STARTl 


if riot assure drive I 


4EE3E43F 


01530 


AND 


3FH 


MASK BITS 6 4 7 


4E3B 23 


00719 


DC 


HL 




IF SO THEN NEXT CHAR 


4EE5FE32 


01540 


CP 


50D 


ARE HE PAST TAB(49) 


4E3C 7E 


00721 


LD 


A,(HL) 




INTO THE 'A' REGISTER 


4EFJ 380C 


01550 


JR 


CORNUM1 


IF NOT GOTO NEXT VTJ) POS 


4E3D 32FFFF 


00730 STtfTl 


LD 


(DRHO),* 




SAVE FOR PROG ENDS 


4EE9 XID 


91549 


LD 


A,CR 


aSE ISSUE CAR RET 


4E40 D630 


01740 


SUB 


'0' 




MAKE IT BINARY 


4EEB CDD952 


01579 


CALL 


PRTCHR 


PUT ON SCREEN 


4E42 DA5I4E 


01750 


JP 


C.PUTKD 




IF < 9 THEN DRIVE 40 


4EEE 3E20 


01580 


LD 


A.SPACE 


AND A SPACE 


4E45 4F 


00760 


LD 


C,A 




PUT VALUE INTO T 


4EFI CDD952 


01594 


CALL 


PRTCHR 


ALSO ON SCREEN 


4E46 3A1344 


00770 


LD 


A,(4413H) 


♦ OF DRIVES Dt SYS TO'A' 


4EF3 1888 


91400 


JR 


NXTFIL 


THEN NEXT FILE 


4E49 B? 


00780 


CP 


C 




IS IT TOO HIGH 


4EF5 3E10 


01419 DRNUM1 


LD 


A,16D 


CHRS TO NEXT VIDEO POS. 


4E4A 3814 


00790 


JR 


C.PUTrtB 




IF SO DRIVE 40 


4EF7 91 


91621 


SUB 


C 


SUBTRACT CHARS TO VIDEO 


4E4C 79 


00800 


LD 


A,C 




PUT VALUE BACK IN 'A' 


4EF8 47 


01639 


LD 


B,A 


PUT INTO 'B' FOR LOOP 


4E4D C3574E 


10810 


JP 


DISDIR 
A,'0' 




ELSE CONTINUE 


4EF9 3E20 


91440 DRNUH2 


LD 


A.SPACE 


A=> SPACE TO BE PRINTED 


4E3I 3E3I 


00820 PimtDI 


LD 




•IF NOT THEN 


4EF6 CD0952 


91459 


CALL 


PRTCHR 


PUT ON VIDEO 


4E52 32FFFF 


01830 


LD 


(DRHO),A 


[SAVE FOR PROG ENDS 


4EFE 10F9 


91649 


DJNZ 


DRNUM2 


DO UNTIL DONE 


4E55 D63I 


00840 


SUB 


'4' 




.DRIVE »0 


4FO0 C37D4E 


91479 


JP 


NXTFIL 


GO GET NEXT FILE 


4E57 329F4E 


00851 DISOIR 


LD 


(DR),A 




[INSERT DRIVE NUN M PROG 


4FI3 78 


91680 LOOP 


LD 


A,B 


CHRS LEFT IN 'B' FOR LOP 


4E5ACD9B4F 


11840 


CALL 


DISHES 




.DISPLAY SIGN-ON MESSAGE 


4FI4 FEtl 


01691 


CP 


OOH 


COMPARE TO ZERO (DONE?) 


4E5D ED5BMHE 0187(1 


LD 


OE, (TABLE) 


,DE=> TRK17 AND SEC3 


4FI4 C8 


01791 


RET 


Z 


IF SO RETURN 


4E61 7B 


00880 DISDI 


LD 


A,E 




[SECTOR NUM INTO 'A' 


4FI7 23 


01711 LOOP1 


INC 


a 


SPACE OVER 1 CHR AT TIME 


1E4Z 32144E 


•0891 


LD 


(TEHSEC), A 


[STORE FOR LATER 


4FI8 1IFD 


01721 


DJNZ 


LOOPl 


UNTIL AT EXTENSION 


4E65 Z14M) 


00901 


LD 


HL.SECBUF 


,HL=> SECTOR STORAGE L0C 


4FIA C9 


01730 


RET 




THEN RETURN 


4E68 3AIF4E 


00910 


LD 


A.IDR) 




[GET BINARY DRIVEt AND 




11740 [ 








4E6B 4F 


10920 


LD 


C,A 




[ PUT IT INTO 'C 




91750 [THIS ROUTINE DISPLAYES SIGN ON 


€SSAGE AND RETURNS. 


4E6C 0410 


00931 


LD 


B,t0H 




B=> 254 BYTE SECTOR READ 




91760 [ 








4E6E CD4D4B 


10940 


CALL 


READ 




[PUT SECTOR INTO BUFFER 


4F9B 217A4F 


91779 DISHES 


LD 


HL.MESS1 


[HL=> MESS1 LOCATION 


4E71 Z215< 


00954 DISDI 


LD 


(HLSAV), HL 


[STORE 'HL' FOR LATER 


4FIE CDD152 


91781 


CALL 


VIDEO 


[DISPLAY LDC ON VIDEO 


4E74 7E 


00940 


LD 


A,(HL) 




[FIRST FILE CHAR INTO 'A' 


4F11 3A4F4E 


91791 GETGRN 


LD 


A,(DR) 


[GET BINARY DRIVE NUMBER 


4E75C85F 


•0971 


BIT 


3, A 




•IS IT AN INVISIBLE FILE 


1A 4F14 4F 


91811 


LD 


C,A 


[ INTO X' 



4F15CD934A 


11811 


CALL 


4A93H 


[GET GRAN SEC 


4F18 2ED1 


11821 

U83I ; 


LD 


L.IDW 


{LOCATE MttE 1 DATE 




11841 {PUT MA* ON VIDEO 






11851 ; 








VIA UK 


01861 


LO 


B,8 


ISET UP FOR LOOP 


4Fic CD4D4F 


11871 
11881 ; 


CALL 


GETC1 


;8 CHARS TO VIDEO (NAME) 




(1871 ;PUT DATE ON VIDEO 






oi9ii ; 








4FIF 1418 


01910 


LD 


B,8 


ISET UP FOR LOOP 


4F21 CD6D4F 


01920 
01931 ; 


CALL 


GETG1 


18 CHARS TO VIDEO (DATE) 




11941 {SET UP FOR CRAMS TO VIDEO 






01951 ; 








4F24 2E11 


01960 


LD 


L,MH 


{POSITION TO TOP BUFFER 


4F24E5 


01970 


PUSH 


Hi 


{PUT 'HL' OH STACK 


4FZ7DDE1 


01981 


POP 


IX 


;back duo 'k # 


4F29 21 III! 


01991 


LD 


hl,mmh 


{ZERO*. 


4F2CE5 


02000 


PUSH 


HL 


i AM) ALSO 


4F2DD1 


02011 


POP 


OE 


; 'DE' 


4F2£ K28 


02020 


LD 


C28H 


(SEARCH 41 TRACKS 


4F3I 003464 


02131 CETC2 


DC 


(IX+41H) 


IIS IT A FLAMED TRACK 


4F33 21I4 


02040 


JR 


NZ.GETG3 


(SKIP IF MOT 


4F33 0036007 12151 


LD 


(IX+MH),XH 


{HARK THIS GRAN USED 


4F39 D07EI1 


02141 GET63 


LD 


A.dX+tlH) 


{TRACK ALLOC DITO 'A' 


4FX MM 


0207O 


LD 


B.06H 


{6 GRAMS PER TRACK 


4FX IF 


02081 CETC4 


DM 




{CHECK GRAM 


4FX 3F 


02091 


CCF 




{FIX STATUS 


4F4« ED5A 


02100 


AOC 


HL.DE 


{ADD TO COUNT 


¥42 UFA 


02110 


DJNZ 


GETC4 


[LOOP OVER TRACK 


4F44 0D23 


02120 


DC 


IX 


{NEXT TRACK 


4F44 » 


02130 


DEC 


C 


{ONE LESS TO DO 


4F47 21E7 


02140 
02150 ; 


JR 


MZ.GETG2 


!DO FOR ALL 41 TRACKS 




02160 {PUT GRANS ON VIDEO 






02170 ; 








4F49CD9A0A 


02181 


CALL 


0A9AH 


{CONVERT HL TO DT ACCUH 


4F4C AF 


02191 


XOR 


A 


iNOFORHATTDC 


1F4D C03411 


02211 


CALL 


103* 


{CONVERT 


4F51B4 


02210 


OR 


(HL) 


! "ACCUH" 


4F51CD09IF 


02221 


CALL 


IFD9H 


; TOAsra. 


4F54 213141 


02230 


LD 


M..4131H 


;«.=> CONVERTED NUMBER 


4F57 7E 


•2Z41GETC5 


LD 


A,(HU 


!GET CHAR 


4F58B7 


02250 


OR 


A 


{TEST FOR EH) 


4F59 28M 


02260 


JR 


Z.ENDMES 


!IF SO DO END OF MESSAGE 


4F5BC00952 


0Z270 


CALL 


PRTCHR 


CHAR TO VIDEO 


4F5E23 


02280 


DC 


H. 


NEXT CHARATER 


4F5F 1X6 


02290 


JR 


GETC5 


DO UNTIL DONE 


4F41 21964F 


02300 DOCS 


LD 


HL.GRMCS 


HL=> 'Free Granules' 


4F44 CDD152 


02310 


CALL 


VIDEO 


PUT IT OM THE VIDEO 


4F47 3E21 


02320 


LD 


A.SPACE 


ONE SPACE BEFORE FILE 


4F49CDD952 


•2330 


CALL 


PRTCHR 


W#C OF FIRST FILE 


4F4C C9 


02341 


RET 




BACK TO CALLER 


4FA0 7E 


02350 GETG1 


LD 


A,(HL> 


PUT NEXT CHAR DfTO 'A' 


4F4ECDD952 


02360 


CALL 


PRTCW ; 


PUT ON VIDEO 


4F71 23 


02370 


DC 


*■ ; 


NEXT POSITION 


4F72 10F9 


12380 


DJNZ 


GETGl J 


ALL 8 CHARCTERS 


4F74 X20 


02390 


LD 


A.SPACE ; 


PUT SPACE ON THE 


4F76C00952 


02400 


CALL 


mo* ; 


VIDEO 


4F79C9 


02410 


RET 




GO BACK TO CALLER 


4F7A 1C 


02420 HESS1 


DEFB 


1CH { 


HONE CURSOR 


4F7B IF 


02430 


0EF6 


1FH ; 


CLEAR TO BOT OF SCREEN 


4F7C 40 


02440 


DEFN 


'leu/cnv ; 


START OF ACTUAL MESSAGE 


45 4E 55 2F 43 40 44 








4F84 Zl 


02451 


DCFH 


' by Jm Doffing 


/ 



42 79 21 4A 69 40 21 44 4F 46 66 69 6E 67 20 20 
4F95 13 12460 DEFB 03H ] 
4F94 20 02471 GRN4ES OEFH ' Free Granules' 

46 72 45 65 20 47 72 61 4E 75 4C 45 73 



EM) OF MESSAGE U/0 LF 



4FA4 0D 


12481 


OEFB 


•OH 


JEM) OF MESSAGE H/LF 


4FA5 COC850 


12491 RETDOS 


CAa 


RSTCUR 


{FIX SCREEN AND ERASE CUR 


4FA8 X91 


02511 


LD 


A.91H 


{RESET RETURN TO 0OS 


4FAA 329742 


12511 


LD 


(4297H),A 


{OVERLAY NUMBER 


4FA0 C32D41 


12520 


JP 


DOS 


{AND GOTO DOS READY 


4FB1 C0C851 


12531 GOBAS 


CALL 


RSTCUR 


{GET READY TO PRDfT 


VB3 21C64F 


02541 


LD 


HL.GBHES 


{lt» MESSAGE TERMINATED 


<FB6 112542 


12551 


LD 


K.DOSBUF 


{DE=> DOS COHMAM) BUFFER 


4FB9 D5 


12561 


PUSH 


DE 


{SAVE FOR LATER 


4FBA 011611 


12571 


LD 


BC,1I0BH 


{SET UP FOR TRANSFER 


4FBDEDBI 


•2581 


LDD) 




{TRANSFER 


4FBFE1 


12591 


POP 


HL 


{GET BUFFER ADDRESS 



11 



4FC0 COOII 


2 02600 


CAa VIDEO 


{PUT ON VIDEO 


4FC3 C39942 02410 


JP 


4299H 


{EXECUTE COMMAND I RETDOS 


4FC6 42 


02620 GBHES DER 


'BASIC -f !3' 


41 53 49 43 20 3) 44 3A 33 






4FD0 0O 


12430 


DEFB 


•OH 


{TERMDWTED BY CR 


4FD1 CD9A50 02640 SEL1 


CALL 


TOP 


{GET TOP OF SCREEN 


4FD4 2A2040 02451 


LD 


HL f (CURPOS) {HL=> CURSOR POSITION 


4FD7 22174E 02440 


LD 


(Fiai),HL {SAVE FOR LATER 


4FDA 22194E 02670 SELECT LD 


(HL2),HL {SAVE FOR PRESENT FILE 1 


4F0DXX 


02480 


LD 


A,'<' 


{PUT FIRST MARKER BEFORE 


4FDF COD952 02491 


CAa 


PRTCHR 


{ FILE NAME 


4FE2 23 


02700 SR2 


DC 


HL 


{NEXT CHAR POSIT. 


4FE3 7E 


02710 


LD 


A,(H_> 


{GET NEXT CHAR DfTO 'A' 


4FE4FE21 


12720 


CP 


SPACE 


{IS IT A SPACE 


4FE4 2815 


02730 


JR 


Z.SEL3 


{D SO GOTO SEL3 


4FE8 CDD952 


02740 


CAa 


PRTCHR 


;ax PUT ON VIDEO 


4FEB 18F5 


02750 


JR 


SEL2 


{ DO AGAIN 


4FED XX 


02740 SEL3 


LD 


A,'>' 


{PUT XCOND HARK AFTER 


4FEF CD0952 


02770 

02780 ; 


CAa 


PRTCHR 


{ THEFILENAME 




02790 {THE NEXT ROUTDC GETS THE COMMANDS AND ACTS APPROPIATELY 




02800 { 








4FF2CD4910 


02810 GETCOH CALL 


DKEY 


{GET SDCLE KEY FROM KEYBOARD 


4FF3 01SE10 


12820 


LD 


BC.LENCTH {LENGTH OF TABLE ARGUMENT 


4FF8 211750 


02830 


LD 


HL.COKTBL {LAST ENTRY DJ COMMAND TABLE 


4FFB50 


02840 


LD 


D,B 


•COPY LENGTH FROM BC (BYTE COUNT) 


4FFC 59 


02850 


LD 


E,C 


...INTODE (TO SAVE FOR LATER) 


4FFD EDB9 


02860 


CPDR 




SEARCH UP ARGUMENT ENTRIES LIST 


4FFFC2F24F 


02870 


JP 


NZ.GETCQM {NO COMPARE FOUND TRY AGADJ 


5002 23 


02880 


DC 


HL 


COMPENSATE FOR CPDR OVERSHOT 


5003 09 


02890 


ADD 


HL.BC 


ADD REMNANT X BYTE COUNT 


5004 19 


02900 


ADO 


HL,X 


ADD ORIGDML LENGTH 


5005 X 


12910 


LO 


E,(HL) ; 


PUT LOH ORDER BYTE DfTO '£' 


5006 23 


02920 


DC 


HL { 


NEXT BYTE 


5007 56 


02930 


LD 


D,(HL) { 


PUT HIGH ORDER BYTE DfTO 'D' 


5008 EB 


02940 


EX 


de.hl ; 


PUT DIHL 


5M9 E9 


02950 


JP 


(HL) ; 


GOTO ADDRESS X ROUTDC 


•••€ 


02960 LENGTH EGU 


100EH ; 


FOURTEEN (14) COMMANDS D) TBL 


500A 30 


02970 TBL 


DEFB 


'0' ; 


FDSTcanwe 


5006 31 


02981 


DEFB 


T 




500C 32 


12990 


DEFB 


'2' 




500D 33 


03000 


DEFB 


'3' 




500E 44 


03011 


DEFB 


'D' 




510F 4B 


13121 


DEFB 


'K' 




5010 43 


13131 


DEFB 


'C 




5011 42 


03041 


DEFB 


'B' 




5012 01 


03150 


DEFB 


D1H 




5013 0D 


03060 


DEFB 


80H 




5014 5B 


03071 


OEFB 


5BH {UP ARROH 


5015 0A 


03181 


DEFB 


0AH {DOW ARROH 


5016 08 


03190 


DEFB 


08H {LEFT ARROH 


5017 09 


03100 COHTBL 


DEFB 


09H {RIGHT ARROH ALSO LAST COM ENTRY 


5018 5050 


03110 


DEFH 


DRIVE 




501A 5050 


03120 


DEFH 


DRIVE 




5I1C 5151 


03130 


DEFH 


DRIVE 




501E 5150 


03140 


DEFN 


DRIVE 




5020 5350 


03151 


DEFH 


DEBUG 




5022 DO50 


13141 


DEFM 


aa 




5024 7252 


03170 


DEFH 


COPY 




5026 B04F 


13181 


DEFH 


GOBAS 




5128 A54F 


•3190 


DEFH 


RETDOS 




50ZA5750 


•3211 


DEFH 


RUN 




SOX 1852 


13211 


OEFH 


UPAR 




502EDD51 


13221 


DEFH 


ONAR 




5030 2F52 


13231 


DEFH 


LTAR 




5032 F451 


13240 


DEFH 


RTAR 






03251 




{PROGRAM 




13260 { 










03270 {THIS ROUTDC ERASES CURSOR1 AW CURS0R2 AMD RETURNS 




03280 {TO THE CALLING ROUTINE 






03290 { 








5034 X18 


03311 ERAX 


LD 


A.BKSPER 


{BACKSPACE AM) ERAX 


5036CDO952 


03310 


CAa 


PRTCHR 


{ CURS0R2 


5039 2A2040 


03320 


LD 


HL,(CURPOS 


{«.=> CURSOR POSITION 


5IX2B 


03330 ERA1 


DEC 


HL 


{GET PREVIOUS CHAR 


513D 7E 


•3340 


LD 


A,(HL) 


{PUT CHAR DfTO 'A' 


50X FEX 


13351 


CP 


'<' 


{IS IT CURSOR CHAR 


51412817 


13361 


JR 


Z.ERA2 


!D" SO CONTDUE 


5142X18 


•3371 


LD 


A.BKSP 


{JF NOT BACK SPACE 


5144CD0952 


13381 


c«a 


PRTCHR 


{ TOPREV CHAR 


5147 18F3 


13391 


JR 


ERA1 


{DO UNTIL DOME 


5149X18 


13411 ERA2 


LD 


A.BKSPER 


{BACK SPACE AND ERAX 


514BCDD952 


13411 


CAa 


PRTCHR 


{ CURSOR! 



504E2B 

50* C9 
5050C33D4E 

5153 AF 
5054C30D44 
5157 2A19C 
505A23 
505B 010AOO 
505E3E2F 
5161 EDB1 
5142 C2A851 
5145 111500 



03420 
03430 

13140 DRIVE 

13450 DEBUG 

13441 

13171 RUN 

03480 

03490 

03510 

03510 

03520 

03530 RUM 



5048 DD21BO50 03510 



504CE5 
504D D07EOO 
5070 FEU 
5172 CA9450 
5175 7E 
5174 DOBEOO 
507? 2014 
507B23 
507C7E 
5071) DOBE01 

5081 288F 

5082 23 

5083 7E 
5I84 0OBE02 
5087 2008 

5089 El 
508A DO4E03 
5180 DD6604 

5090 E9 

5091 D019 

5093 El 

5094 1804 
5094 El 
5097 C3A051 
509A 3A20W 
509DE43F 
509F FEOO 
50A1 2807 
50A3 3E18 
50A5COD952 

50A8 18F0 

50AA2A2040 

5IM> 114000 

50B0 E052 

50B2 7E 

50B3FE20 

5085 CI 

5IB4 3E18 

50B8CDO952 

50BB 18ED 

50BO 13 

10 H 
5ICI BE51 
50C2 12 

1C 44 
50C5 7351 
5IC7 00 
50C8 C03150 
50C8CD9A50 
50CE 2A204O 
50D1 23 
5ID2 7E 
50D3 FEZ! 
50D5C8 
5004 3E1A 
50O8 CD0952 
5008 18F1 
500D C0C850 
50EO 115551 
5OE3 3E20 
50E5CD4352 
50E8 3E03 
50EA 12 
5IEB 213751 
50EE C00152 
50F1 214551 
50F1 C00152 
50F7CD1900 
50FAFE01 
50FC28O1 



13550 MOO 
03540 

03570 

03580 

13590 

03400 

03410 

03420 

03430 

03410 

03450 

03440 

03470 

03481 

03490 

03700 

03710 

03720 

03730 

13710 NXTEXT 

03750 

03740 

13770 BASICR 

03780 

03790 TO? 

03800 

03810 

03820 

83830 

13810 

03850 

03840 TOl 

13870 



13880 
13890 

03900 
•3910 
03920 
03930 
03910 
03950 EXTTBl 

03940 
03970 

03980 
0399O 

01000 RSTCUR 

01010 

01020 RST1 

01030 

01010 

01050 

11040 

01070 

11080 

04090 

moo khj. 

01110 

11120 

01130 

11110 K&2 

01150 

01140 

01170 

01180 

01190 

11200 KDJ 

01210 

01220 



DEC 
RET 
JP 
XOR 

JP 

ld 

DC 

U> 

ID 

era 
JP 

LD 

LD 

PUSH 

LD 

CP 

JP 

LD 

CP 

JR 

DC 

LD 

CP 

JR 

DC 

LD 

CP 

JR 

POP 

LD 

LD 

JP 

ADD 

POP 

JR 

POP 

JP 

LD 

AND 

CP 

JR 

LD 

CALL 

JR 

LD 

LD 

SBC 

LD 

CP 

RET 

LD 

CALL 

JR 

DEFH 



START1 

A 

440OH 

HL,<HL2) 

IL 

8C.180 

A,'/' 

NZ, BASIC 

DE.OOOS 

n.EXTTBL 

HL 

A,(R+00H) 

00H 

Z, BASICR 

A,(HL) 

(K+OOH) 

HZ.HXTEXT 

HL 

A,(HL) 

(IX+01H) 

NZ.HXTEXT 

HL 

A,(HL) 

(DS+02H) 

NZ.NXTEXT 

HL 

L,(IX+03H) 

H,(IX+04H> 

(HL) 

W.DE 

HL 

RUMZ 

HL 

BASIC 

A,(CURPOS) 

3FH 



Z.TOl 

A,6KSP 

PRTCHR 

TOP 

HL,<CURPOS> 

OE.0040H 

HL,DE 

A,(HL) 

SPACE 

NZ 

A.UPLH 

PRTCHR 

TOl 

'00' 



DEFH 
DEFM 

DEFH 

DEFB 

CAU 

CAU 

LD 

DC 

LD 

CP 

RET 

LD 

CALL 

JR 

CALL 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

CALL 

CALL 

CP 

JR 



COHAW 
'BLD' 

DO 

OOH 

ERASE 

TOP 

HL.(CURPOS) 

HL 

A,(HL) 

SPACE 

Z 

A.DHL14 

PRTCHR 

RST1 

RSTCUR 

DE.KMESZ 

A.SPACE 

HOVFD. 

A.03H 

IDE), A 

HL.KILICS 

VIDEO 

HL,»CS3 

VIDEO 

DUET 

01H 

Z.BTBK 



[PODCT TO CURSOR POSIT 
[RETURN TO CALLER 
[GET DRIVE DIRECTORY 
!N0 STATUS 

[LOAD AND JUMP TO DEBUG 
[GET PRESENT FILE LOCAT. 
[NEXT POSITION AFTER '<' 
[SH IP FOR SEARCH LOOP 
{SEARCH CHAD INTO 'A' 
[AUTOMATIC SEARCH 
iff HOT MUST BE BASIC 
iBYTES BETWEEN COMMANDS 
;IX=> EXTENT TABLE 
;SAVE 'HL' FOR LATER 
[PUT FIRST CHAR INTO 'A' 
IS IT END OF TABLE 
IF ZERO TABLE EM), BASIC 
1ST FILE CHAR DITO 'A' 
IS IT SAME AS TABU 
;IF NOT. NEXT EXT. LOC. 
IPDDTT TO NEXT CHAR 
[NEXT CHAR WTO 'A' 
;IS n SANE AS 2ND CHAR 
Iff NOT, NEXT EXT. LOC. 
[POINT TO THIRD CHAR 
[PUT IT INTO 'A' 
;IS n SMC AS 3RD CHAR 
[ff NOT, NEXT EXT LOC 
[FIX STACK 

[PUT ROUTINE ADDRESS 
INTO 'HL' 
GO TO IT 
,BC TO NEXT EXT 
[GET ORKDIAL FILE LOC 
[CHECK ANOTHER FILE EXT. 
CORRECT STACK 

[GET LSB SCREEN A0OR 
HASK OFF BITS 417 
;IS IT POSISION OF LINE 
;IF SO CONTINUE 
[aSE BACKSPACE 

ONE SPACE 
[AND CHECK AGAIN 
PUT ADDRESS INTO 'HL' 
[SET UP 'OE' FOR 

SUBTRACTION 
[PUT CHAR DTO 'A' 
IS IT A SPACE 
IF NOT RETURN TO CALLER 
;aSE PRINT A 
[UP LDC FEED 

AW CONTINUE 
[COMMAND FILE EXT 

JCOHNAW FILE ROUTINE 
JBUILD FILE EXT 

!DO BUILD ROUTINE 
JEW OF EXTTBL MARKER 
[GET RID OF CURSORS 
[GO TO TOP OF VIDEO 
[GET CURRENT POSITION 
[POINT AT NEXT CHAR 
IPUT INTO 'A' 
[IS IT A SPACE 
;IF SO RETURN TO CALLER 
[ELSE HOVE DOWN ONE 
LDC ON VIDEO 
AND TRY AGAIN 
[GET CURSOR TO CLEAR LDC 
[DE=> KHESZ STOR AREA 

A'= CHAR AT END OF FILE 
[HOVE FILE TO =>'DE' 
[EOF MARKER INTO 'A' 
[PUT INTO MESSAGE 
;HL=> KILL MESSAGE? 
[PUT LDC ON VIDEO 
;HL=> SECOND HALF KDJCS 
IPUT LDC ON VIDEO 
[GET KEY PRESSED 
[HAS BREAK KEY PRESSED 
[IF SO CORRECT SCREEN RTH 



50FEFE* 
5100 200F 
5102 214E51 
5105 CDD152 
5108 CD9A50 
510B 2A2010 
510E C3DA1F 
5111 FE59 
5113 2IE2 
5115 CD095Z 
5118 3E0D 
5UA CDD952 
5110 215051 
5120 112542 

5123 05 

5124 2B 

5125 3E03 
5127 324C52 
512A CD4952 
512D 3E0O 
512F 12 

5130 El 

5131 CD0152 
5134 C3F0FF 
5137 41 



04230 

04210 

01250 QTBK 

04260 

04270 

04280 

01290 

01300 KH1 

04310 

04320 

04330 

04340 

04350 

04360 

04370 

04380 

04390 

04100 

OHIO 

01420 KD.6 

0143O 

04110 

01450 

04440 

01170 KDJCS 



CP 

JR 

LD 

CALL 

CALL 

LD 

JP 

CP 

JR 

CAU 

LD 

CALL 

LD 

LD 

PUSH 

DEC 

LD 

LD 

CALL 

LD 

LD 

POP 

CALL 

JP 

DEFH 



72 45 20 79 4F 75 20 73 75 72 
77 41 6E 71 20 71 4F 20 
5150 IB 04480 HCSl DEFM 

19 1C 4C 20 

0011 04490 KMES2 DEFS 
5145 3F 04508 KMES3 DEFH 

20 28 59 2F 4E 29 



04510 

04520 

01530 ERAKD. 

01510 

01550 

04540 

04570 

04580 DO 

04590 

84400 

84410 

0442O 

04430 

04440 

04450 

04440 D02 

04470 

04480 

84490 

04700 

04718 

84720 

81730 DOMES 

81710 
11750 BASHES 



514C 0E 
5160 03 
514E OF 
514F 0A 

5170 IB 

5171 IF 

5172 03 
5173COC850 
5176 219651 

5179 112542 
517CD5 
517D 010300 

5180 EDB0 
5182 3E2F 
5184 CD4352 
5187 XOD 

5189 12 
518A El 
518B C00152 
518E 3E91 

5190 329742 

5193 C39942 

5194 44 
1F20 

5199 03 
519A 12 

41 53 49 43 2C 
51A0 CDC850 04760 BASIC 



DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

CALL 

LD 

LD 

PUSH 

LD 

urn 

LD 

CAU 

LD 

LD 

POP 

CALL 

LD 

LD 

JP 

DEFM 

DEFB 
DEFM 



'N' 

NZ,KB,4 

HUERAKB. 

VIDEO 

TOP 

HL.(CURPOS) 

SELECT 

'Y' 
N2,KIL3 

PRTCHR 

A,CR 

PRTCHR 

HL.KMES1 

DE.DOSBUF 

DE 

HL 

A,03H 

<HOV2+01H),A 

H0V1 

A,CR 
IDE), A 

HL 

VIDEO 

DOSCHD 

'Are aou sure 

65 20 79 6F 75 

'KILL ' 

160 

'? (Y/N)' 

0EH 
63H 
0FH 
0AH 
UPLN 

as 

03H 

RSTCUR 

HL.DCICS 

DE.DOSBUF 

DE 

BC.0003H 

A,'/' 

MOVFIL 

A,CR 

(0E),A 

HL 

VIDEO 

A,91H 

(4297H),A 

1299H 

'DO ' 

03H 
'BASIC,' 



12 



51A3 219A51 
51A4 112542 
51A? 010600 
51ACD5 
51ADEDB0 
51AF3E20 
51B1 CD6352 
5184 tCOO 
51B6 12 
5187 El 
51B8 CD0152 
51BBC39942 
51BECDC850 
51C1 J1Z542 
51C1DS 
51C5 3EZF 
51C7CD6352 
51CA3E3A 
51CC 12 
51CD 13 
51CE3AFFFF 

5101 12 

5102 13 



84778 

84780 

81790 

04800 

04810 

04820 

81830 

14840 BAS2 

04850 

04840 

04870 

04880 

11890 COHAND 

04900 

04910 

01920 

04930 

04940 COM2 

04951 

04960 

04970 

04980 

04990 



ilS IT AN -N" 
;ff NOT MAYBE A "Y" 
|HL=> ERASE KDJ. MESSAGE 
[PUT IT ON THE VIDEO 
|GO TO TOP SCREEN 
|HL=> CURSOR POSITION 
[START OVER WITH SELECT 
;IS IT A "Y" 

[IF NOT GET ANOTHER C0MM 
[PUT IT ON VIDEO 
[MOVE TO NEXT LDC 
[DOIT WH 

[«.=> KMES1 LOCATION 
;OE=> 4225H COMMAND BUFF 
JSAVE FOR LATER 
[BACKUP ONE SPACE 
[END OF FILE INTO 'A' 
[PUT INTO RTN FOR COMPAR 
[HOVE IT 

[PUT CAR RET INTO 'A' 
[STORE IT 

[NOW HE CAN USE IT 
[PUT ON SCREEN 
[USE ROUTINE IN DOS 
fn want to ' 
20 



[RESERVE 14 SPACES 



TURN ON CURSOR 
[EOF MARKER 
TURN OFF CURSOR 
[ISSUE LDC FEED I CR 
[GO UP ONE LDC 
[CLEAR TO BOTT OF SCREEN 
[TERMINATE HUH EOF HARK 
;GOTO FIRST BLANK LINE 
|HL=> BUILD MESSAGE 
|DE=> DOS INPUT BUFFER 
[SAVE BUF ADOR FOR LATL 
[NUMBER OF CHARS TO TRANS 
iMOVE'EM 

A'= CHAR AT END OF FOE 
[HOVE NAME TO BUFFER 
TERMINATE COMMAND 
[IN COMMAND BUFFER 
,HL=> DOS BUFFER 
[PUT COMMAND ON VIDEO 
[RE DO OVERLAYOl INFO 
;STORE IT 
[EXECUTE COMMAND 
[DO COMMAND MESSAGE 



CALL 

LD 

LD 

LD 

PUSH 

LDIR 

LD 

CALL 

LD 

LD 

POP 

CALL 

JP 

CALL 

LD 

PUSH 

LD 

CALL 

LD 

LD 

DC 

LD 

LD 

DC 



RSTCUR 
HL, BASICS 
DE.DOSBUF 

BC0006H 
DE 

A.SPACE 

MOUFD. 

A,CR 

(DE),A 

HL 

VIDEO 

4299H 

RSTCUR 

DE.DOSBUF 

DE 

A,'/' 

HDVFTL 

A.'t' 

(DE),A 

OE 

A, (DRW) 

(DE),A 

DE 



[EOF MARKER 



;FIX VIDEO 

;HL=> BASIC RTN MESSAGE 
[OE=> DOS INPUT BUFFER 
!BC = LENGTH OF MESSAGE 
[SAVE 'DE' FOR LATER 
[HWE MES INTO DOSBOF 
A'= END OF FILE MARK 
[HOVE n TO =>'DE' 
;PUT A CARRIAGE RETURN 
[AT END OF COHHAW 

;N(M HE NEED THAT INFO 
;pUT IT ON THE SCREEN 
[TURN IT OVER TO DOS 

[FIX SCREEN 

[DE=> DOS COHHAW BUFFER 

[SAVE FOR LATER 
A'=€W OF FILE HARK,— -. 

[PUT TT INTO BUF=>'B 

[PUT COLON INTO 'A' 

[PUT INTO BUFFER 

[POINT TO NEXT POSITION 

[PUT ASCII ORO DfTO'A' 

[PUT INTO BUFFER 

[NEXT POSITION 



51D3 3E0D 


05000 


LD 


A.CR 


51D5 12 


05(11 


LD 


(DEM 


51D4EI 


05020 


POP 


HL 


51D7 CD0152 


15030 


call 


VIDEO 


51DA C39912 


15(10 


JP 


1299H 


51DD 111000 


05050 OMAR 


LO 


DE.0010H 


SlEO CDOF52 


05040 


CALL 


DNRTCK 


51E3 CAF21F 


85070 


JP 


Z.GETCOM 


5!E6 CD3150 


95080 


CALL 


ERASE 


^1E9 3E1A 


05099 


LD 


A.DNLN 


51EB CDD952 


05100 


CALL 


PRTCHR 


51EE 2A2010 


05110 


LD 


HL,(CURPOS) 


51F1 C3DMF 


05120 


JP 


SELECT 


51F1 HUM 


05130 RTAR 


LD 


DE.0010H 


51F7 C08F52 


05110 


CALL 


DNRTCK 


51FA CAF21F 


05150 


JP 


Z,GETCOH 


51FD CD315( 


05160 


CALL 


ERASE 


5291 till 


05170 


LD 


B,14D 


5212 23 


05180 RTAR1 


IMC 


HL 


5293 7E 


05190 


LD 


MHL) 


5201 C00952 


05200 


CALL 


PRTO* 


5217 18F9 


05210 


DJNZ 


RTAR1 


5209 2A2810 


05220 


LD 


HL,(CURPOS) 


52tC C3WHF 


05230 


JP 


SELECT 


529F 2A191E 


05210 worn* 


LD 


H.,(HL2l 


5212 1? 


05250 


ADO 


HL,DE 


5213 23 


05240 


INC 


HL 


5211 7E 


05270 


LD 


A,<HL> 


5215 FE2I 


05280 


CP 


SPACE 


5217 C9 


05290 


RET 




5218 1110(9 


05300 upar 


LD 


DE.00KH 


5216 CD5852 


05310 


CALL 


UPLTCK 


521EDAF21F 


05320 


JP 


CGETCOH 


5221 C03159 


0533O 


CALL 


ERASE 


5221 3E1B 


05310 


LD 


A,UPLN 


5224 CDD952 


05350 


CALL 


PRTCHR 


522? 2A2M0 


(5340 


LD 


a.(CURPOS) 


522CC30MF 


05370 


JP 


SELECT 


522F llllOD 


05380 LTAR 


LD 


DE.0OIOH 


5232 C05852 


05390 


CALL 


UPLTCK 


5235 DAF2T 


05100 


JP 


CGETCOH 


5238 CD3150 


05110 


CALL 


ERASE 


523B 0411 


05120 


LO 


B.10H 


523D 3E18 


0$130 LTAR1 


LD 


A,BKSP 


523F C00952 


05110 


CALL 


PRTCHR 


5212 3A2010 


05150 


LD 


A,(CURPOS) 


5215 E43F 


05140 


AND 


3FH 


5217 FE3F 


05170 


CP 


3FH 


5219 2M5 


0518O 


JR 


NZ.LTAR2 


521B 3E1B 


(5190 


LD 


A.UPLN 


5210 CD0952 


05500 


CALL 


PRTCW 


5258 10EB 


05510 LTAR2 


DJNZ 


LTAR1 


5252 2A2010 


05520 


LD 


H r (OJRPOS> 


5255 C3DA1F 


05530 


JP 


SELECT 


5258 2M91E 


85510 UPLTCK 


LD 


HL,(HL2) 


525B ED52 


05550 


SEC 


HL,DE 


525D 0110X 


05540 


LD 


BC,X1(H 


5261 ED12 


05570 


SBC 


HL.BC 


5262 C9 


05580 


RET 




5263 326C52 


05590 MOVFIL 


LD 


<KW2+(1H>,A 


5266 2A19« 


05400 


LD 


HL,(HL2> 


5249 23 


05410 HOV1 


DC 


HL 


524A 7E 


05420 


LD 


A,(H.) 


5266 FEOI 


05430 MDV2 


CP 


00H 


5260 C8 


05610 


RET 


Z 


526E 12 


05650 


LD 


<DE),A 


524F 13 


05640 


DC 


DE 


5270 18F7 


05670 


JR 


HOV1 


5272 CDC85I 


05680 COPY 


CALL 


RSTCUR 


5275 216752 


(5490 


LD 


HL.COPNES 


5278 C00152 


(5700 


CALL 


VIDEO 


527B CM90I 


05710 COP1 


CALL 


DKEY 


527E FEOI 


05720 


CP 


01H 


5280 CA0Z51 


05730 


JP 


Z.OTBK 


5283 32CF52 


85719 


LD 


(COPNUM), A 


5284 D430 


05750 


SUB 


30H 


5288 38F1 


05740 


JR 


CCOP1 


5Z8A 1F 


05770 


LD 


C,A 


528B 3A13H 


05780 


LD 


A,(H13H) 


528EB9 


(5790 


CP 


C 


528F 38EA 


05800 


JR 


CCOPt 


5291 21B752 


05810 


LD 


HL.CGPICS 



TERMINATE COMMAND IN TIC 

COWAN) BUFFER 

HL=> COMMAND BUFFER 

PUT LDC ON VIDEO 

TURN IT OVER TO DOS 

DE=> NUH CHAR TO NEXT 

CHECK FOR FILE THERE 

IF SO THEN NO hORE FILES 

ELSE GET RID OF CURSORS 

DUMMY VALUE 

PUT IT ON THE SCREEN 

H_=> CURSOR POSITION 

GOTO SELECT ROUTINE 

DE = NUN CHARS TO NEXT 

CHECK FOR FILE THERE 

IF SO THEN NO MORE FILES 

ELSE GET RJD OF CURSORS 

MOVE TO NEXT FILE 

POINT TO NEXT CHAR 

PUT NEXT CHAR INTO 'A' 

PUT n ON VIDEO 

DO UNTIL DONE 

HL=> CURSOR LOCATION 

TURN OVER TO SELECT 

HL=> CURR FILE NAME 

ADO, RESULTS IN 'HL' 

HOVE TO NEXT CHAR 

PUT CHAR INTO 'A' 

IS n A SPACE 

RETURNO HATTER 

OE = CHARS TO NEXT FILE 

IS TOD FAR UP OR LEFT 

F SO GET NEXT COHKAW 

GET RID OF CURSORS 

aSE LOAD UP LINE IN 'A' 

PUT TO VIDEO 

HL*> NEH FILE NAME 

GET ANOTHER CHOICE 

OE = CHARS TO NEXT FILE 

IS TOO FAR UP OR LEFT 

F SO GET NEXT COMMAND 
GET RID OF CURSORS 
HOVE TO NEXT FILE 
BACK SPACE HA) ERASE 'A' 
PUT ONSCREEN 
GET LSB OF CURSOR POSIT 
MASK BITS 4 1 7 
IS IT END OF LDC 
IF NOT FD1ST CHAR CONT 
MOVE UP ONE LDC 
PUT IT ON VIDEO 
DO UNTIL DONE 
GET CURRENT FILE 
GET NEXT SELECTION 
HL=> FILE NAME 
SUBTRACT TO SEE F HE 
ARE TRYING TO SELECT 
THE FIRST LDC 
GO BACK EITHER HAY 
PUT COHP VALUE W RTN 
K» FILE NAME ADDRESS 
NEXT CHAR 
PUT CHAR JJJTO 'A' 
DUMMY CHECK SET BY RTN 
BACK TO CALLER F EM) 
ELSE STORE AT =>'«' 
NEXT POSITION 
CONTINUE UNTIL DONE 
HOVE CURSOR TO EMTY LDC 
HL=> Hhich Drive? 
PUT ON SCREEN 
GET CHARACTER 
HAS BREAK PRESSED 
IF SO CORRECT SCREEN RTN 
STORE FOR LATER 
MAKE IT BINARY 
IF LESS THAN TRY AGAIN 
PUT IN 'C* FOR COMPARE 
GET HIGH SYS OR * 
IS IT TOO BIG 
F SO TRY AGAIN 
HL=> "COPY " J ^ 



5291 112512 


05820 


LD 


DE.DOSBUF 


;de=> 


DOS DCUT BUFFER 




5277 05 




05830 


PUSH 


DE 




[SAVE BUFFER ADDRESS 




5298 010500 


05810 


LD 


BC0005H 


[LENGTH OF COPY MESSAGE 




5298 EDB0 


05850 


LDF 






;move n 






529D 3E20 


05860 


LD 


A, SPACE 


J'A'= 


CHAR AT END OF FILE 


529F CD4352 


05870 


CALL 


MOVFIL 


;nove it to *> 


DE' 




52A2 21C052 


05880 COW LD 


HL,COPSPC 


;hl=> 


COPY SPACE MESSAGE 


52A5 0101O0 


05890 


LD 


BC,0001H 


;move three chars to 




52A8 EDB0 


05900 


LDF 






;dosbuf 






52AA 21CF52 


(5910 


LD 


HL,COPNUM 


;hl=> 


DRIVE NUMBER AND CR 


52ADCD0152 


85920 


CALL 


VIDEC 












5260 El 




05930 


POP 


HL 




[RESTORE BUFFER ADDRESS 




52B1 CDD152 


05910 


CALL 


VTDEC 




[PUT COMMAND ON SCREEN 




52E1 C3F0FF 


05950 


JP 


DOSCMD 


[TURN n OVER TO DOS 




52£;7 13 




05940 COPHES OEFM 


'COPY to uhich Drive? 








IF 50 59 20 71 4F 


Z0 77 68 49 63 68 20 11 72 49 








74 45 3F 


















52CB 0E 




05970 


DEFB 


OEH 




[TURN ON CURSOf 






52CC 03 




(5980 


DEFB 


03H 












32CD 20 




05990 COPSPC OEFB 


SPACE 












52CE 3A 




06000 


DEFB 


'!' 












52CF 00 




06010 COPNUM DEFB 


(OH 












52D0 OD 




04020 


DEFB 


ODH 












52D1 C5 




04030 VIDEO PUSH 


BC 




iSAVE POINTER 






52DZE5 




(4(10 


PUSH 


HL 




[SAVE 


'HL' 






52D3 CD1B02 


04(50 


CALL 


PRTU 




[PUT IT ON THE VIDEO 




52D4 El 




04060 


POP 


HL 




IGET 


HL' 






52D7 CI 




06070 


POP 


BC 




;PUT BACK 






52D8 C9 




06080 


RET 






[BACK TO CALLEf 






5209 C5 




06090 PRTCHR PUSH 


BC 




ISAVE POINTER 






52DA CD33O0 


06100 


CALL 


VDCHR 




JPUT n ON THE VIDEO 




52D0 CI 




06118 


POP 


BC 




[PUT n BACK 






5Z0EC9 




(6120 


RET 














FFF0 




04130 


ORG 


8FFF0H 


;rst routtjc location 




FFF0 E5 




04110 DOSCMD PUSH 


HL 




ISAVE 


'HL' FOR MM 




FFF1 21FBFF 


04150 


LD 


HL,TEHT0P 


[PROTECT RETURN FROM DOS 


FFF1 221111 


04140 


LD 


(TOPMEM),HL 


J STORE IT 






FFF7E1 




04170 


POP 


HL 




[GET ' 


HL' BACK 






FFF8CD9C12 


04180 


CALL 


COMDOS 


[EXECUTE COMMAND t RETURN 


FFFB 3EFF 


04190 TEMTOP LD 


A.0FFH 


[LOAD OVERLAY 15 t 




FFFD EF 




04200 


RST 


28H 




[AND EXECUTE IT 






1E0O 




06210 


END 


ST 




[END STATEMENT 






0(000 TOTAL ERRORS 
















BAS2 


51B1 


BASIC 


51A0 


BASICR 


5096 


BASHES 


519A 


BKSP 


0018 


BKSPER 


0008 


as 


001F 


COM2 


51CA 


COHAND 


51BE 


CONDOS 


129C 


COMTBL 


5017 


COP1 


5Z7B 


C0P3 


52A2 


COPHES 


52B7 


COPNUM 


52CF 


COPSPC 


52CD 


COPY 


5272 


CR 


000D 


CURPOS 


1(20 


DEBUG 


5(53 


DISD0 


1E41 


DISD1 


1E71 


DISDDt 


1E57 


DISF0 


KAB 


DISFIL 


«A2 


DISHES 


1F0B 


DNAR 


51DD 


DNLN 


001A 


DNRTCK 


520F 


DO 


5173 


D02 


5187 


DOMES 


5196 


DOS 


102D 


DOSBUF 


1225 


DOSCMD 


FFF9 


DR 


1E0F 


DRIVE 


5050 


DRNO 


FFFF 


DRNUH 


1ED3 


ORNUH1 


«F5 


ORNUMZ 


1EF9 


ENDMES 


1F41 


ERA1 


50X 


ERA2 


5019 


ERAKJL 


514E 


ERASE 


5031 


EXT 


1EB7 


EXT1 


1EC7 


EXTTBL 


508O 


FILE1 


*17 


FTLNAN 


1E13 


FILOFF 


1E11 


G8HES 


1FC6 


GETCOM 


1FF2 


GETG1 


1F4D 


GETG2 


1F30 


GETG3 


1F39 


GETG1 


1F3E 


GETG5 


1F57 


GETGRN 


1FU 


GOBAS 


1FB0 


GRNHES 


1F94 


HL2 


1E19 


HLSAV 


1E15 


INKEY 


(919 


KIL2 


50E8 


KD.3 


50F7 


KD.1 


5111 


KJJ.6 


512D 


KILL 


50DO 


KILHES 


5137 


KMES1 


5150 


KMES2 


5155 


KMES3 


5145 


LAST 


1E1B 


LENGTH 


00OE 


LOOP 


1F(3 


LOOP1 


1F07 


LTAR 


522F 


LTAR1 


523D 


LTAR2 


5250 


HESS1 


1F7A 


HOV1 


5269 


K0V2 


524B 


MOVFIL 


5243 


NXTEXT 


5091 


NXTFIL 


1E7D 


NXTSEC 


1E8C 


PRTCHR 


5209 


PRTLN 


(21B 


PUTHDt 


1E50 


QTBK 


5192 


READ 


*(D 


RETTJOS 


1FA5 


RST1 


5(CE 


RSTCUR 


5IC8 


RTAR 


51F1 


RTAR1 


52(2 


RUN 


5(57 


RUN11 


5(45 


RUN2 


S04C 


SEC 


1E80 


SEC8UF 


WOO 


SECEND 


00* 


sai 


*D1 


SEL2 


1FE2 


SEL3 


1FED 


SELECT 


1FDA 


SPACE 


0020 


ST 


*(( 


ST1 


1EM 


START 


1E1D 


START1 


*3D 


STRT1 


1E32 


TABLE 


COO 


TBL 


500A 


TENSEC 


1E10 


TEMTOP 


FFFB 


TOl 


50AA 


TOP 


SWA 


TOPMEH 
VDCHR 


Mil 
(033 


TRK 
VIDEO 


1E0E 

5201 


UPAR 


5218 


UPLN 


001B 


UPLTCK 


5258 



[Source code for MENINSTL/CMDJI 



1475 
1699 
921B 
9(19 
1(20 
5199 



90100 [NEWNSTL/CMD a proqran to install the MENU progran 
00110 [TRSDOS CALLS 

EQU 1475H 

EQU 14((H 

EQU (21BH 

EQU (919H 

EQU 492TJH 

EQU 51((H 



0(120 READ 
0013(HRITE 
((IK VIDEO 
0(159 INKEY 
80140 DOS 
00170 BUFFER 
8(180 ; 



5zei 


1(199 




ORG 


52((H 






l(2(( ! 


: the eaw is an example of hom to read and write 




1(211 ! 


SPECIFIC TRACKS AND SECTORS USTJG TRSDOS 1.3 




9(229 ! 


!DISK 


U> 


HL.53MH 


[BUFFER LOCATION 




9(239 ; 


! DRIVE 


LD 


BC,999IH 


!9(=254BYTE, (9=ORWtt 




9(219 ! 


ITKSC 


LD 


DE,KMH 


;i(=TRACK, (^SECTOR 




i(25( ; 


iOPER 


CALL 


READ 


',00 READ OR HRITE 




II24( ! 


, 


RET 




IBACK TO CALLER 


11(2 


(927( FIRST 


EQU 


1192H 


(FUST RECORD TK11 SEC2 


11*3 


1(289 SECOND 


EQU 


U03H 


{SECOND RECORD TK11 SEC3 


HIS 


9(299 THIRD 


EQU 


1995H 


ITHIRD RECORD TK1I SEC5 


5211 19 


(8308 PROMPT 


DEFH 


'Insert Disk to be upgraded into Drive 11 


4E 73 45 72 71 21 « 4? 73 46 21 71 4F 21 42 45 then press ana ken.' 


21 75 71 47 72 41 41 45 41 21 4? 4E 71 4F 21 11 


72 4? 74 45 21 23 31 2C 21 71 48 45 4E 21 71 72 


45 73 73 21 41 4£ 7? 21 4B 45 7? 2E 




5230 M 


l(3I( 




DEFB 


Mi 




523E ID 


II32( 




DEFB 


HH 




523F 91 


((330 nemcoh 


DEFB 


91H JMENU to be included in LIB 


5211 9C 


(1319 




DEF6 


9CH 




5211 F9 


91351 




DEF6 


9F(H 




5212 51 


1(349 




DEFB 


51H 




5213 12 


99370 




DEF6 


12H 




521110 


9I3B( 




DEFH 


'H£NU ' 




15 « 55 29 29 










521A93 


((391 




DEFB 


93H 




521B 12 


111(9 




DEFB 


12H 




521C II 


II1K 




DEFB 


99H 




5210 9292 


l(12( 




DEFH 


9292H 




52* II 


1(139 




DEFB 


99H 




5251 * 


l(H( 




DEFB 


«H 




5251 E5 


IM5I 




DEFB 


(E5H 




5252 211152 


(9469 START 


LD 


HL.PROrT 




5255CD1B92 


IM7( 




CALL 


VIDEO 


;PRWT START HESSAGE 


5258CD19(( 


1(481 




CALL 


DKEY 


JGET KETPRESS 


5256 211(51 


IH99 




LD 


HL,BUFFER 


JFIRST SECTOR 


525E 111211 


915(1 




LD 


DE.FIRST 


ITOBEREAD 


5241 (HIM 


9(519 




LD 


8C9991H 


S254BYTE RECORDS DRWE1 


5241 C5 


1(529 




PUSH 


ec 




5245C07544 


19531 




CALL 


READ 




5248 211(51 


9(510 




LD 


HL.BUFFER 




5246 111211 


(1559 




LD 


DE.FIRST 




524E CI 


9(549 




POP 


ec 




524FC5 


99579 




PUSH 


EG 




527IC07514 


19581 




CALL 


READ 


;do it twice for sure 


5273 3EII 


91599 




LD 


A,I9H 




5275 21(151 


91499 




LD 


HLf5^VnH 


[CLEAN UP "HIT" 


5278 77 


0(410 




LD 


<HL),A 




527V 3E82 


1(429 




LD 


A.82H 




527B 21FE51 


09439 




LD 


HL,5*EH 


IINSTAL MENU INTO SYSTBL 


527E77 


19410 




LD 


(HL),A 




527F 23 


99459 




me 


HL 




5281 3E15 


9(440 




LD 


A.15H 




5282 77 


(1479 




LD 


(HL),A 




5283 211151 


99480 




LD 


HL.BUFFER 




5284 111211 


9(499 




LD 


DE.FIRST 




5289 CI 


11(7(1 




POP 


EC 




528* C5 


1(719 




PUSH 


BC 




5286 CDII14 


90720 




CALL 


WRITE 


JPUT IT BACK AFTER CHANGE 


528E 211151 


9(739 




LD 


HL,BUFFER 


[SECOND SECTOR 


5291 111311 


11719 




LD 


OE, SECOND 


ITOBEREAD 


5291 CI 


81759 




POP 


BC 




5295 C5 


9(749 




PUSH 


BC 




5294CD7514 


0(779 




CALL 


READ 




529? 21CI51 


91789 




LD 


HL,54C9H 


JSTART OF FILE INFO 


529C 11C151 


99791 




LD 


OE.SICIH 




529F (12FM 


9(8(9 




LD 


BC.2FH 




52A2 77 


99819 




LD 


(HLl.A 




52A3E06I 


1(821 




LDU) 




(CLEAR OUT UFO FROM DIR 


52A5 211(51 


1(831 




LD 


HL.BUFFER 




52A8 111311 


II8K 




LD 


DE.SECOND 




52ABC1 


(9859 




POP 


BC 




52ACC5 


9(849 




PUSH 


BC 




52»CD(944 


19870 




CALL 


WRITE 


[PUT n BACK CORRECTED 


52B( 21(951 


1(881 




LD 


HL.BUFFER 


JtHWD SECTOR 


5263 11(511 


91899 




LD 


DE.THIRD 


(TO BE READ 


52B4C1 


09999 




POP 


BC 




5287 C5 


9(910 




PUSH 


BC 




52BB CD7514 


(9920 




CALL 


READ 




5288 211(51 


99931 




LD 


HL.BUFFER 




52BE 11(511 


91919 




LD 


OE.TKIRO 




52C1 CI 


9(959 




POP 


BC 




52CZC5 


(9949 




PUSH 


BC 





52C3CD7516 


99979 


52C4 213F52 


99989 


52C9 11(951 


99999 


52CC 011291 


91199 


52CFEDB( 


91919 


52D1 21(051 


91929 


52D1 11(519 


91(30 


52D7C1 


91910 


52D8 CD((44 


91959 


52D6C32D19 


11940 


5252 


01970 


09909 TOTAL ERRORS 



BUFFER 5100 DOS 102D 
PROMPT 5299 READ 1475 
VIDEO 0218 WRITE 4409 



CALL 


READ 


[THEE TO BE SURE 


LD 


HL.NEHCOM 




LD 


DE.BUFFER 




LD 


BC f 12H 




LDIR 






LD 


HL.BUFFER 




LD 


DE.THIRD 




POP 


BC 




CALL 


WRITE 




JP 


102DH 


{RETURN TO DOS READY 


END 


START 




> FIRST 1192 


INKEY 0019 NEHCOH 5Z3F 


i SECOND 1193 


START 5252 THIRD 19(5 



14 



Making an Auto-Boot-Loading NewdosSQ V2.0 System Disk for the 
by Tony Domigan 

MODELA/III can be copied to LDOS 5.x and TRSDOS 1.3B 
diskettes so that they can Cold Start on the Model 4P. If, 
however> you wish to use NEWDOS/80 version 2.0 the only option 
is to load MODELA/III with 'pause' and then enter your NEWDOS 
disk - two operations! not very convenient. Furthermore, the 
Model 4P hardware seems to check the boot sector (sector 1) in a 
way which excludes any DOS other than TRSDOS or LDOS. 

The method I have used relocates the NEWDOS directory to 
to lump 36 i.e. track 20J the same track on which the LDOS 
directory resides. 

The FPDE for MODELA/III is created and the directory 
entry modified so that when the file is copied from the TRSDOS 
MODELA/III disk it will be copied to a true track. I have used 
track 30 as it is not allocated in a standard NEWDOS diskette. 

The ROM file is then modified on the NEWDOS diskette so 
that the bootstrap loader will select sector O to boot the 
diskette. 

Using Superzap the MODELA/III FPDE is again modified to 
read Track 1EH or 30 decimal and the total granules changed to 
09H. The normal boot sector (sector 1) is modified with 3 byter 
located by the hardware in checking for a TRSDOS or LDOS disk. 

The diskette is now configured such that the hardware 
assumes it is an LDOS diskette with the ROM starting on track 30 
decimal. Once loaded the ROM bootstrap boots NEWDOS from 
sector 0. 

1. Construct a new system diskette with a directory on lump 36 - 
e.g. 

PDRIVE.0,1 ,DDSL=36,A 

COPY ,0,1,00/00/00 ,CBF,FMT,NDP=NEWDOS4F,DPDN=l 

2. Boot the new system diskette. 

3. Create a file called MODELA/III - e.g. 

CREATE MODELA/III !0 

4. Using Superzap, page through the directory, from relative 
sector 360, till the FPDE for MODELA/III is located. Modify 
Bytes 21-24 in FPDE i.e. 

OOOO FFFF to 3900 360B 

5. From "NEWDOS READY" copy MODELA/III from the TRSDOS 
1.3B boot disk to the new NEWDOS disk - e.g. 

COPY MODELA/IIIJ1 !0 SPDN=4 

6. Using Superiap locate the MODELA/III FPDE and modify 
bytes 20-24 i.e. 

Find 3900 360B Change to 3900 1E09 
Using Superiap 'DFS' modify MODELA/III at FRS 53 Relative 
Byte 39 

Find 3E01 D3F2 Change to 3EOO D3F2 
Using Superzap modify the first sector (360) of the directory 
(GAT). Change relative bytes 36H to 3BH inclusive to FF (i.e. 
lump(s) allocated). 

Modify Disk Relative Sector 1 at relative byte 0! Do a 
'ZTFF'<enter> to zero the sector and modify! 

Relative Byte 02 ==> 14 

Relative Byte 14==>28 

Relative Byte 8A ==> CD 

7. Now the easy part, RESET the 4P holding the 'P' and 'L' keys. 
If the ROM fails to load successfully then recheck the FPDE entry 
and the Sector 1 bytes. If the ROM loads successfully but 
NEWDOS fails, either partly or completely, then recheck the patch 
to MODELA/III (or perhaps you have accidentally written to the 
wrong part of the system!). 

- Tony Domigan, PO Box 150, Thomastown, Victoria, 3074, 

AUSTRALIA. 
-July 17th 1984- 



ALDATE 
by Jack Decker 

This program is specifically designed for use with 
ALLWRITE!, the new word processing system by PROSOFT, but it 
could be modified for use with other word processors. One thing I 
have noticed about most word processing programs is that they 
have no way to automatically bring the system date into a letter. 
It has always seemed kind of silly to me to have the current date 
stored in the computer's memory, but no way for the word 
processing program to do anything with it. This program is a 
partial solution to this situation. 

The program below is designed to be patched into ALK/CMD, 
the keyboard driver program provided with ALLWRITE!. I keep 
the combination program (this program merged with ALK/CMD) on 
my ALLWRITE! disk under the name A/CMD for easy entry into 
ALLWRITE!. The code segment shown below gets the system date, 
translates it into words and numbers, and then writes it to a file 
called DATE/TXT which can then be imbedded into any ALLWRITE! 
text file using ALLWRITE's MM" control word. In this manner, 
"boilerplate" letters and/or logos can be developed which can call 
in the current date at any time. 

Further instructions for installation and use of the program 
may be found in the assembly language source code comments. If 
you would like to try and modify this program for use with another 
word processor or as a stand alone program, please note the 
following! 

1) You may change the ORG address in line 780, but the new 
address MUST end with 00H or the program will not work. In a 
stand-alone application (where this program might be part of a 
/J"CL file, for example) you could ORG it at a lower memory 
location, such as 5600H or 7000H. 

2) The PUSH HL instruction in line 1250 saves HL for 
ALK/CMD (PUSHHL is the instruction found at the ALK/CMD 
entry point, and the program below jumps into ALK/CMD just past 
this instruction). In most other applications you will have to 
eliminate this instruction and move the START label to line 1260. 

3) Line 1730 is the program exit and in this case jumps to 
7444H, which is (as mentioned above) one instruction past the 
normal ALK/CMD entry point of 7443H (in the version of 
ALK/CMD that I have). In most other applications this will have 
to be changed. You could return to DOS READY by making this a 
jump to 402DH. 

If you do own ALLWRITE! and would like to combine this 
program with ALK/CMD as originally intended, you will have to 
use either a monitor program such as TASMON or a program such 
as CMDFILE/CMD (originally sold as a stand-alone program by 
Misosys, now included with LDOS). I can't give you specific 
instructions for this project because it will differ depending on 
the monitor program you are using. There are other ways to go 
about it, of course - you could disassemble ALK/CMD and combine 
it with the assembly language code below and then re-assemble, 
or you could even use a disk zap type program and manipulate 
bytes in the disk file to combine the programs (not recommended 
for the inexperienced!). The point is, there are many ways you can 
go about it, but the best method for you will depend on what types 
of utility programs you may have available, 



M16I ;om ALDATE/ASH - by Jack Decker 

Mill (Version 1.1 - creation date 9/18/84. 

00120 

II13J (This prograii is designed to work with the ALLHRITE! word 

MM (processing system by Prosoft. It is NOT a stand-alone 

11150 (progran, but is designed to be patched into ALK/CHD (the 

H1AI (keyboard driver program provided by Prosoft). Whenever 

M17I (ALK/CMD is executed (after being patched with this 

M18I (progran), it yill first read the system date (the date 

M19I (entered at power-up or whenever the 005 DATE comand is 

II2II (executed), convert it to a text string of the format! 

11211 (north, day, year (exawle! December 31, 1985) and then 

M22I (output it to a file named DATE/TXT on drive zero. This 

II23» (file can then be used by "boilerplate" letters and/or 

11240 (letterheads by using the ALLNRTTE! comand: 

11251 ( !W DATE/TXT 

M24I (This contend will "imbed" the text of DATE/TXT within 

11271 (body of the document being created. Note that the iW 

11281 (comand does not cause a "control break", but must be 

M29I (the last comand on a multi-command screen line. 

II3QI 

11311 (If the systen date stored in neiury appears to be 

••321 (invalid, this prograii will terminate with an error 

00331 (message and the DATE/TXT file will be killed (if it 

11341 (existed previously). 



01350 

10360 (There are several ways to combine this progran with the 

00370 (ALX/CN) progran. This version of this progran assumes 

00380 (that ALK/CHD loads fron 7100H through 75ZEH and that the 

80391 (nornal entry point is 71431 (this progran uses an entry 

00400 (point of 7444H, skipping a PUSH HI instruction which has 

00410 (already been done at the start of the code below). 

00420 (One nethod of conbining the programs is to use TASHON to 

00430 (load ALK/CHD (nake sure the entry point address is 7443H 

00440 (in the version you have), load the object code produced 

00450 (by this progran, and then write to disk using the 

00160 (ALK/CHD start address and this progran's ending and 

00470 (entry point addresses. The CHDFttf/CHD progran 

00480 ((supplied with LOOS) could also be used, or as a last 

00190 (resort, you could use the DOS LOAD comand to bring 

OISM (ALK/ChD into nenory, and then execute this progran. 

11511 

00520 (I suggest using the S£TDATE/t» progran (tvailat*!* tin 

00530 (TAS Public Donain Library Disk ♦ Oil) to set the OVrtt 

00510 (easily when booting your DOS, unless you have a hardware 

00550 (clock nodule and appropriate software to do this for 

00560 (you. 

00570 

00580 (This progran will only work correctly during the 20th 

00590 (century (change line 1640 after the year 1999). 

00600 

00610. (It would be easy to nodify this progran to output the 

00620 (date in a different fornat (such as date, north, year) 

00630 (but that will be left up to the individual. Should you 

80610 (need 3 such a specialized version of this progran and 

00650 (not feel capable of doing it yourself, I will consider 

00660 (producing customized versions of this progran for a 

80670 Jnoninal fee. 

80680 
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88698 (Questions or 


cements HUST t 


le accompanied by a self- 




08781 (addressed stamped envelope if you live in the U.S.A. or 




80718 (Canada (Canadian postage is 


O.K.) and wish a reply. 




80728 










08730 ( 




Jack Decker 






00740 ( 




1814 test 18th Street Lot 1 155 




00750 ( 




Sault Ste. Harie, Hichigan 19783 




00761 










00770 








7600 


08780 
18790 


ORG 


7610H 


(HUST end with 01H 




08810 (String and date storage area 


used by progran 




00810 








7680 1876 


00820 TABLE 


DEFH 


JAN 


(Table of string pointers 


7602 1F76 


01830 


DEFH 


FEB 


( point to strings 


7601 2776 


80810 


DEFH 


HAR 


( containing months of 


7486 2C76 


81850 


DEFH 


APR 


( the year 


7688 3176 


80860 


DEFH 


HAY 




748A 3476 


01871 


DEFH 


JUN 




760C 3876 


80880 


DEFH 


JUL 




768E X76 


00890 


DEFH 


AUG 




7418 4276 


00908 


DEFH 


SEP 




7612 1874 


80911 


DEFH 


XT 




7611 5Z76 


11921 


DEFH 


NOV 




7616 5A76 


80930 


DEFH 


DEC 




7618 4A 


00941 JAN 


DEFH 


'Januar' 


(Strings containing 


61 6E 75 61 72 








761E f9 


08950 


DEFB 


'y'+80H 


( months of year 


761F 16 


80960 FEB 


DEFH 


'Februar' 




65 62 72 75 61 72 








7626 F9 


00970 


DEFB 


'y'*81H 




7627 « 


00981 MR 


DEFH 


'Hare' 




61 72 63 








7628 £8 


00991 


DEFB 


'h'+80H 




762C11 


01000 APR 


DEFH 


'Apri' 




70 72 4S 


t 








7630 EC 


01010 


DEFB 


'l'+81H 




7631 « 

61 

7633 F9 


11121 IttY 


DEFH 


'Ha' 




01030 


DEFB 


'y'+81H 




7634 4A 


01041 JUN 


DEFH 


'Jun' 




75 6E 










7637 E5 


11151 


DEFB 


V+8W 




7638 4A 


01061 JUL 


DEFH 


'Jul' 




75 6C 










743B F9 


01171 


DEFB 


'y'+8W 




76X41 


11081 AUG 


DEFH 


'Augus' 




75 67 75 73 








7611 F1 


01191 


DEFB 


't'*81H 





7612 53 


65 71 


74** F2 


74« % 


43 74 


7451 FZ 


7452 * 


AF 74 


745V n 


745A U 


45 63 


7661 F2 


7442 15 


52 52 


19 V. 


15 3A 


7691 ID 


7491 19 


1E54 


15 10 


H 11 


76BC 00 



V+8IH 
'Octobe' 

V+8W 
'Novate' 

'r'tMH 
'Decerte' 

V+8IH 

'ERROR WILE CSEATDC/UPDATING FILE: DATE/TXT:l' 



KILLDC OATE/TXTJI' 



Mill SEP QEFH 'Septenbe' 
71 65 40 62 45 

Mill DEFB 

11121 OCT DEFH 
4F 62 45 

11131 DEFB 

11111 NOV DEFH 
65 40 42 45 

11151 DEFB 

11161 DEC DEFH 
45 40 42 65 

11171 DEFB 

11181 EflWSG DEFH 

1F 52 21 57 18 19 1C 15 21 13 52 15 11 51 

fl 2F 55 51 11 11 51 19 IE 17 21 14 19 1C 

21 H 11 51 15 ZF 51 58 51 3A 31 

01191 DEFB HH 

11211 DMALD DEFH 'INVALID DATE IN HEHORY 

11 1C 19 11 21 11 11 51 15 21 19 4E 21 ID 

* 52 59 21 2D 21 « 19 1C 1C 19 IE 17 21 

51 15 2F 51 58 51 3A 31 

11211 DEFB KM 
11221 

11231 JStart of actual Mchine-language progran 
I12H 

7680 E5 11251 START POSH HL JSave input buffer pointr 

748EI4II 11261 LD B,l {Logical Itecord LngtH=254 

76CI 115777 11271 ID DE.FCB JFile Control Block pntr 

76C3 217777 11281 LD H.FILHf JFile I/O Buffer pntr 

76C4 CD2W 11291 CALL H2IH {DOS DOT routine 

76C9 2117 I13M JR NZ.ERREXT JGo if error 

74CBC01B77 11311 CAa GETBFR {Get loc wnory date star 

74CE IA J132I LD A,(BC) ',Get year fron nemry 

74CF FE61 11330 CP ll» ;is it in range II - 99? 

7601 31* 01311 JR NC.NODATE [Go if invalid year 

7603 13 11351 DC BC {Point to day in ««>ry 

7401 M 11361 LD A,(BC> JGet day fron neMry 

7405 3D 11371 DEC A {Adjust valid to I - 31 

7406 FE1F 11381 CP 310 JIs day 1 - 31 In new*? 
7608 3117 11391 JR NC.NODATE JGo if invalid north 
74DA03 11111 DC BC {Point to north in nenory 
74D8 OA 11111 LD A,(BC) JGet Month frcn nerory 
74DC 3D 1112(1 DEC A (Adjust valid to I - 11 
7600 FEIC 11130 CP 12D [Is north 1 - 12 in **? 
76DF 3BW I1H0 JR C.C0NT JGo if nenory date valid 
76E1 219176 11158 N0DATE LD H.DNALO JPoint to invalid dt nsg 
74E1 C04711 11161 CALL H67H [Display it on video 
74E7 CD2CH 11171 CALL H2CH JKill DATE/TXTJI 

74EA 2831 11180 JR Z.EXIT JGo if no error 

76EC 1821 11191 JR FJKEXT (Use error exit 

74EE CD3577 11511 CONT CALL OUTSTR JOutaut north string 

74F1 C02577 11511 CALL PRTSPC JPrint space character 

74F1 IB 11521 DEC BC JPoint to day bate 

76F5 OA 11531 LD A,(BC) JGet das (1 - 31) 

76F4 4F 11511 LD L,A JPut day in L 

74F7 2411 11551 LD H,l JHL = day 

76F9 C5 11561 PUSH BC [Save date storage pntr 

76FACD2A77 11571 CALL PRTNUH JPrint day 

74FDC1 11581 POP BC JRestore date storage ptr 

74FE C02I77 11591 CALL PRTC0H JPrint coma and space 

7711 OB 11411 DEC BC JPoint to year byte 

7712 IA 11611 LD A,(BC) JGet year (I - 99) 

7713 1F 11621 LD C,A (Put year in C 

77M 1611 11431 LD B,l JBC = last 2 digits year 

7714 214CI7 11611 LD HL.19IID JGet century offset 
7719 19 11451 ADO HL.BC JHL = Year (all 1 digits) 
77M CD2A77 11661 CALL PRTNUH JPrint year 

7710 CD28H 11671 CALL 1428H JCLOSE file 

7711 28IB 11481 JR Z.BffT JGo if no error 

7712 F68I 11491 ERREXT OR 8IH JSet bit 7 to ret to pgn 
7711 C0I9H U7II CALL 1H9H [Display DOS error nsg 
7717 216276 11711 LD HL.ERRHSC JPoint to additonal nsg 
771AC047H 11721 CALL 1147H [Display it on video 
7710C3U71 11731 EXIT JP 7H* JGo to ALK initialiiation 

7721 3E2C 11711 PRTC0H L0 A,',' [Coana character in A 

7722 CD1BII 11751 CALL 1BH [Output it to file 
7725 3E2I 11761 PRTSPC LD A,' ' JSpace character in A 
7727C31BM 11771 J> 1BH {Output to file I RET 
772AOS 11781 PRTNUH PUSH DE JSave FCB pointer 
772BC09AIA 11791 CALL M9AH JNurter in HL to ACCUH 
772ECDBMF 11811 CALL IFBOH [Convert I to string 

7731 01 11811 POP D£ JRestore FCB pointer 

7732 23 11821 DC HI {Skip leading space char 



7733 1818 

7735 17 

7736 4f 

7737 247* 
7739 7E 
773A23 
7736 44 
77X6F 
7730 7E 
773E B7 
773FC8 

7710 F5 

7711 E47F 

7713 CD1BII 

7714 Fl 

7717 F8 

7718 23 

7719 18F2 
77« II W0 
771E 3A5100 

7751 3D 

7752 C8 

7753 J11A12 

7754 C9 
77V U 

11 51 15 ZF 51 
7761 03 02080 
0015 02090 
0100 02110 
76B0 02111 
00100 TOTAL ERRORS 



01830 
11811 
11851 
01860 
11871 
01881 
01891 
11910 
11911 
11920 
01930 
11910 
01950 
11940 
01970 
11981 
11990 
02000 
12(10 
02020 
12030 
82110 
02050 
02040 
12170 



JR 
OUTSTR RLCA 
LD 
LD 
LD 
DC 
LD 
LD 
OUTTXT LD 
OR 
RET 
PUSH 
AND 
CALL 
POP 
RET 
INC 
JR 
GETBFR LD 
LD 
DEC 
RET 
LD 
RET 
FCB DEFH 
58 51 3A 30 
OEFB 
DEFS 
FILBUF DEFS 
END 



OUTTXT JOisplay converted nunber 
JA=Ai2 (2 byte pointers) 
L,A JL<SB string table addr 
H.TABJX-8 !H=HSB string table addr 
A,(HL) JA4.SB actual string addr 

HL JPoint to HSB string addr 

H,<H_) JH=HSB actual string addr 

L ( A [HL-string location addr 

A,(HL) JGet byte to output 

A JSee if zero terninator 

Z [Finished if zero byte 

AF JSave sign flag status 

7FH [Hask off bit 7 

1BH [Output it to file 

AF JRestore sign flag 

H [Finished if bit 7 set 

H {Advance string pointer 

OUTTXT JGo print next byte 

BC,101* J8C=*od I date storage 

A,(51H) JCheck which mdel TRS-80 

A JA will be on Model I 

Z JReturn if Hodel I 

BC121AH [BWtod m date storage 
{Pointing to Hod IH date 
'DATE/TXTJ0' {File Control Block area 

3 { with progran filenane 

21D J (total 32 bytes) 

1I0H JFile I/O buffer area 
START 



APR 742C 

ERRMSG 7662 

GETBFR 77* 

HAR 7427 

OUTSTR 7735 

SEP 7612 



AUG 743C 

EXIT 7710 

DWALD 7491 

HAY 7631 

OUTTXT 7730 

START 748D 



CONT 76EE 

FCB 7757 

JAN 7618 

NODATE 76E1 

PRTCOH 7721 

TABLE 7611 



DEC 
FEB 
JUL 

NOV 



765A 
741F 
7638 
7652 



PRTNUH 772A 



ERREXT 7712 

FILBUF 7777 

JUN 7631 

OCT 76« 

PRTSPC 7725 
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NEWS FLASH 

MCI MAIL NOW ACCESSIBLE IN SEVERAL COUNTRIES 

WORLDWIDE 

We don't have full details of this at press time, but 
apparently the procedure for foreign users is to contact your local 
PTT (postal/telephone/telegraph) authority for information on 
connecting with MCI Mail. As far as MCI Mail is concerned, the 
charges are the same (that is, no charge for connect time or to 
read mail, only *1.00 U.S. to send an "instant" letter to another 
user, etc.) BUT you may incur connect-time charges from your 
local data network. 

As an example, in Canada a potential MCI Mail user would 
contact Bell Datapac for information on accessing MCI Mail, and 
would presumably have to pay a connect-time charge to Bell 
Datapac for time spent in contact with MCI Mail, in addition to 
the charge for any mail sent over MCI Mail. I am hoping to get 
some better information on this in the near future, and will pass 
it on when I receive it. In the meantime, if any of our foreign 
readers manage to get onto MCI Mail through a local access 
number, I'd appreciate it if you'd drop me a line and let me know 
how you're being charged. 

ARCHBOLD SPEEDUP MOD WANTED 

If anyone has an Archbold speedup modification for the 
Model I that you'd like to sell, or if you have a schematic diagram 
for this unit, Steve Winokur would like to hear from you. 
Apparently the Archbold mod is out of production, and Steve 
wants that particular modification. If you can help, contact Steve 
at 435 Norristown Road, Horsham, Pennsylvania 19044 or call 
(215) &75-77Q8 after 4 P.M. East ern time. 

MODEL I VIDEO MONITOR FOR SALE 

Includes hard plastic green screen. The plastic cabinet is 
very slightly blemished (could be easily fixed with a little Tandy 
silver-grey paint) but otherwise it seems to work fine. Asking 
*75 (price is negotiable). Also for sale: TC-8 high speed tape 
storage unit made by JPC Products Company (see ads in early 
issues Df 80- Microcomputing), also a "Memory Box" 2K memory 
expansion unit that provides RAM memory at the (normally vacant) 
memory area from 3000H-37DFH in the Model I. Make an offer on 
the latter two items. Contact NORTHERN BYTES at our Sault Ste. 
Marie address (see return address on back page). 



Information Brokers: 
The Indispensable Service of the Information Age 

By John H. Everett and Elizabeth Powell Crowe 

[Editor's note! This article has been provided to 
NORTHERN BYTES and other publications by J. Norman Goode, 
publisher of Micro Moonl i ghter Newsletter, and is Copyright 1984 
by Ferret Press.] 

The Information Age has spawned its share of cliches! one of 
the most pervasive is "Information is Power." As John Naisbitt, 
author of Megatrends , has said "We are drowning in information 
but starved for knowledge." That starvation for knowledge means 
that INFORMATION IS PROFIT. 

We all have too much information. What we need is not more 
information, but the ability to access precisely the information we 
need precisely when we need it and not have to worry too much 
about it otherwise. Our individual ability to accomplish this will 
be crucial to our success, whether employees of a major 
corporation, entrepreneurs, students or even among the 
unemployed (whether by choice or circumstance). 

A new kind of information specialist is emerging to help us 
manage our information needs. This specialist has the talents 
and abilities to take advantage of the latest technology while 
utilizing traditional information management skill. This 
specialist can not only help us identify what information we really 
do need, but can help us get it, interpret it and use it. This 
specialist is going to be in integral part of the Information Age 
and our ability to function in it. This specialist is the 
INFORMATION BROKER. 

In truth, Information Brokers have been around for many 
years! they are not a by-product of computer databases. The need 
to manage printed information has long demanded specialists to 
catalog, retrieve and use the information. It is the growth in the 
amount of information, its availability through computer 
communications and its importance to our decision-making in 
today's rapidly changing world that has elevated Information 
Brokering to its present importance. 

While public libraries are debating their responsibility to 
make information available as a public service in light of the 
business 1 nature and high cost of much of the information online, 
the private sector is staking out a major role in information 
retrieval using these same expensive, business oriented 
databases. No one business, or type of business, has so 
penetrated the information market that the directions in which 
this market will grow have become unalterable. But it is likely 
that a small number of small businesses and individual 
entrepreneurs will capture the significant share of that market 
that remains. 

In case you're wondering what good an Information Broker 
could be to someone, consider this example! 

Two competitors need information on the use of computers in 
special education classes. 

Cne of them goes to the library, for three days in a row. 
First he looks in the magazine index! there he finds that education 
magazines, general magazines, medical magazines and computer 
magazines have had something on the subject. The he looks in 
Books in Print ; finally he checks the library's monograph file. He 
reads each article that seems to fit, scans the books that seem 
pertinent, reads the monographs. He finds that some will not do. 
After three days, he has copious notes and a vague idea of what's 
going on. He will take it all back to the office and study it to 
winnow out what he needs. 

The other person knows abc'Jt Information Brokering. She 
calls her favorite datsoasa searcher and asks for bibliography and 
short summary of the most recent articles that have the words 
SPECIAL EDUCATION and COMPUTER, MENTAL RETARDATION 
and COMPUTER, and COMPUTER AIDED EDUCATION and 
SPECIAL STUDENTS. The next morning, she has a list of the 
books and articles that fit her subject. She ordars hard copies of 
several that are right on target. They are delivered less than 48 
hours after she made the first call. Sh= never left her office, and 
she had time to devote to her other duties while the search was 
made. 

No matter what the information need, it is highly likely that 
a computer database exists on that subjsct. Somewhere out there 
are facts about chickens who wear contact lenses, how many 
college degrees Art Garfunkel holds, and the latest patents. 
Wandering around in the same "out there" are people who need 
that information and don't know where to find it. 

Traditional methods of research for finding these facts are 
still useful. This is especially true for information of a 
historical nature, since many databases weren't computerized 
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before the late 70's. But for the most current facts, figures and 
analyses, one must go to the online databases. No one can master 
each and every byte of them; most will not try, To be able to get 
to those parts that affect you when you need the data is 
important; but it is not easy. 

The information service industry came about because the 
amount of data has grown unimaginably large, retrieval has 
become more complicated and expensive, and most people do have 
time to manage their information. This does not decrease their 
need for information or the urgency of their need. 

When computers were mostly confined to businesses and 
colleges, they were used as number crunchers and formula 
blenders. Then someone invented a game for these no-nonsense 
machines called "Adventure". It was filled with mazes, treasures, 
pitfalls and monsters. But as this was before graphics were as 
available as they are today, you had to keep a map of the 
"geography" in your head in order to gather the treasures and 
survive. 

Online databases are not unlike the adventure games. Many 
treasures of great value are hidden in realms where "magic" words 
can retrieve them! but perils await the unwary. Within minutes or 
seconds, the magic word, if known, can conjure up data that would 
take weeks, even months, of manual research. 

But gaining the knowledge of the magic words, and to which 
realms they apply, is costly. These dynamic, ever-growing 
kingdoms of statistics, facts, and formulae are not easy to 
navigate unless you have training, lots of experience, and the 
right computer hardware and software. 

Steven K. Roberts, in an article in ONLINE TODAY calls the 
Information Broker the free-lancer of the Information Age. Kelly 
Warnken in her book The Information Brokers calls it, "a 
fee-based information service." Bob Sherman of COMPUTER 
ASSISTED RESEARCH ON LINE (C.A.R.O.L.) defines his business 
as* "A service that does database research for clients and, if 
needed, tracks and obtains the documents." Norm Goode, 
publisher of MICRO MOONLIGHTER NEWSLETTER, compares 
Information Brokers to retailers! "The product is information, in 
all its variant forms! the 'value added' is the ability to gather all 
available material about a particular subject that is of use to the 
end user..." 

Some of the things that can be done using computers to 
research are! 

Abstracting 

Analyzing information 

Bibliography collecting 

Computer software design 

Consulting 

Directory compilation 

Document collection and delivery 

Identifying experts 

Assistance in grant preparation 

Indexing 

Industry overviews 

Instant education 

Literature searching 

Purchasing reports 

Specific subject updates 

Systems design 

Thesaurus construction 

Verifying facts 

You can probably add a few more, using your imagination. 
What an Information Broker does that is so valuable to the client 
is she delivers these things fast and precisely on target for the 
client's needs. After narrowly defining the client's question, she 
knows what database service to search, which services within that 
service, what commands are necessary to call up that specific 
information. She can deliver a bibliography, the actual documents, 
an abstract, a report, or a combination, depending on how how she 
defines her business. Most often, Information Brokers deliver a 
report, or synopsis with the pertinent facts, the source and the 
further reading necessary. 

Information Brokers are not restricted by geographical 
location. Telephones, modems, electronic mail and overnight 
delivery add up to a continent-wide potential market. 

Can just anyone pick up a modem and begin to solve the 
world's need for pertinent information? NO! One needs skills in 
research. One needs training and experience in databases in 
general, and each of them specifically. One needs skills in 
compiling and communicating the information found into a useable 
form. One needs skills in interviewing the client to define the 
"what" he really needs. One needs marketing skills, business 
skills, and the ability to see when he needs help from the outside. 



Is anyone out there willing to pay enough to make your 
investment in all that time and money not only worth it but also 
profitable? YES' Bob Sherman of C.A.R.O.L. lists among his 
clients: doctors, politicians, television producers, writers, 
companies that want corporate snooping, researchers, and lawyer. 
RESPONSE TIME in Irving, Texas has had clients representing 
small business, real estate and the arts. In short, anyone or any 
company, large or small, that uses information could at some time 
use an Information Broker. 

Even large companies with existing research and 
development departments come to Information Brokers. Perhaps 
the need is outside the department's repertoire. Or perhaps the 
data is on a database that will rarely be used and has a high 
monthly minimum charge. Or maybe there's a crunch on! the data 
is needed right now, but the staff is already handling all it can. 

An attorney who needs a file on a specific medical condition, 
a summary of judgements in cases decided concerning that medical 
condition, and statistics on how many people currently suffer from 
it could have his legal aide flounder among the databases for two 
weeks, or call an Information Broker and ask for it tomorrow. 
Which do you think he'll do? 

A small business wants to grow, but is it possible? The 
owner needs facts on her product, how it is doing in the region, 
and nationally. Does advertising help in her industry? How about 
hiring the handicapped'' 

How many miles is it from New York to Zanzibar, and who 
crossed it on a bicycle? Some television producer in Hollywood 
HAS to know, and no one but his Information Broker can help. And 
a business-to-be might be more successful with a pre-opening 
data search on the competition, especially if the search is 
computerized, up-to-the-minute and comprehensive. 

All these people know they have a need for information. 
Anyone can use an Information Broker. And pretty soon, anyone 
will. 

«♦******»****»* 

This is an excerpt from the new book! The Information 
Broker's Handbook! How to Profit From The Information Age by 
John H. Everett and Elizabeth Powell Crowe. The book is 
available for *24.95 plus 12.00 Postage & Handling from! Ferret 
Press, 4121 Buckthorn Court, Lewisville, Texas 75028 

BASIC TELEPHONE DIALER PROGRAM 
by David R. McGlumphy / MCI ID! 181-7759 

[Dave McGlumphy gave us an assembly language telephone 
dialer program in NORTHERN BYTES Volume 5, Number 5. It had 
a small bug in it, so Dave sent the fix (which appears in "THE 
EXTERMINATOR" column) and at the same time, sent a dialer 
program written in BASIC for those who feel more comfortable 
with BASIC than with assembly language. He sent this to me via 
MCI Mail at 2!32 A.M. on a Wednesday morning, and without 
knowing he had done this, I signed on at approximately 2!40 A.M. 
and got it 1 Talk about fast delivery' (Talk about people who don't 
have sense enough to go to bed...) The speedy delivery made a 
difference, too, since I was just finishing up this issue (in fact I 
had just finished running the files through a spelling checker in 
preparation for printing them out) 1 Anyway, without further ado, 
here's Dave's program!] 

10 GOTO 80 'Dave McGlumphy 4429 Paula Ln Chattanooga Tn 374 

15 02/19/84 

20 CLS ! PRINT'save 'dialer'" ! SAVE"dialer" 

30 'THIS PROGRAM IS FOR A TRS-80 MODEL I TO DIAL A PHON 

E. 

40 'I THINK MODEL III USERS CAN USE IT IF THEY CHANGE VA 

RIABLE 

50 'MN TO 236. IT TOGGLES THE CASSETTE REMOTE PLUG ON/ 

OFF. 

60 'MAKE THAT PLUG CONTROL A NORMALLY CLOSED RELAY 

WHICH 

70 'IS IN SERIES WITH THE RED OR GREEN PHONE LINE. 

80 POKE14308,1 'SELECTS CASSETTE CABLE #2 SINCE I USE #1 

90 ' FOR SOUND GENERATION AND TAPES. 

100 MN=255 'CASSETTE REMOTE PLUG ON/OFF PORT 

110CLS 

120FRINT"A. ATC" 

130 PRINT"B.BASIC" 

140 PRINT"C. M80SLOW/CMD" 

150 PRINT"D. DOS" 

160 PRINT"E. 68MICRO JOURNAL.... 842-6809" 

170 PRINT'H. WOMACK BB 891-0136 (6!00 - 23100)" 

180 PRINT'I. CRABAPPLE 875-6035 (W21IL)" -| Q 

190 PRINT'J. MCI.(Jack=102-7413).l-800~323-7751" XO 



200 FRINT"K. CHRIS SMITH 899-5377" 

210 PRINT'M. Manually dial a number." 

220 PRINT"N. BUTCH ....16146953056" 

230 PRINT'O. Pete Chiello 870-1324" 

240 PRINT'R. boot 

250 PRINT"X. hang up. " 

260 PRINT'Y. pick up. "f 

280 I*=INKEY* 

290 I*=INKEY* ! IF 1$="" THEN 290 ELSE PRINT If!" "! 

300 ON INSTRO'AaBbCcDdEeHhliJjKkMmNnOoRrXxYyM*) GOTO 3 

40,340,360,360,370,370,380,380,390,390,400,400,410,410,420,420,4 

30,430,350,350,440,440,450,450,460,460,320,320,330,330 

310 GOTO 290 

320 OUT MN,4 ! GOTO 280 'hang up. 

330 OUT MN,0 ! GOTO 280 'pick up. 

340 CMD"s=atc" 

350 INFUT'WHAT NUMBER" !PH* i GOTO 470 

360 CLS ! END 

370 CMD"S=MODEM80" 

380 CLS ! CMD"S" 

390 PH$="8426809" ! GOTO 470 

400 PH*="8910136" ! GOTO 470 

410 FH*="8756035" ! GOTO 470 

420 PH$=" 18003237751" J GOTO 470 

430 PH*="8995377" ! GOTO 470 

440 PH*="16146953056"!GOTO470 

450 PH$="8701324" ! GOTO 470 

460 CMD"boot" 

470 PRINT ! GOSUB 640 'TO GET DIAL TONE 

480 FOR I = 1 TO LENIFH*) 

490Z*=MID*(PH*,I,1) 

500 IF Z*<"0" OR Z$>"9" THEN 620 

510Z=VAL(Z*> 

520 PRINT Z! 

530 IF Z=0 THEN Z=10 

540 ' TIMER BETWEEN DIGITS 

550 GOSUB 700 

560 FOR J=l TO Z 

570 OUT MN,4 

580 GOSUB 720 

590 OUT MN,0 

600 GOSUB 720 

610 NEXT J 

620 NEXT I 

630 GOTO 110 

640 ' HANG UP, THEN GET DIAL TONE. 

650 OUT MN,4 

660 FOR 1=1 TO 400 ! NEXT 

670 OUT MN,0 

680 FOR 1=1 TO 200 ! NEXT I 

690 RETURN 

700 ' TIMER BETWEEN DIGITS 

710 FOR K=l TO 80 ! NEXT K ! RETURN 

720 ' TIMER WITHIN A DIGIT 

730 FOR L=l TO 1 INCREASE THIS IF YOU NEED 10 PULSES/SEC 



740 NEXT L ' 
750 RETURN 



IT GOES ABOUT 20/SEC NOW. 



PATCHES FOR TAS PROGRAMS TO WORK ON THE MODEL 4P 
by Tony Domigan 

Patch for KBE package to work on the Model 4P 
Using Superzap Modify DVPJII64/CMD! 
FRS 04 Rel Byte 61 find C3 FC 33 change to C3 74 31 
FRS 05 Rel Byte 08 find CD 40 04 change to CD DC 01 

Patch for TASMON [not the new upgrade!] to work on the Model 4P 

Load TASMON/CMD from NEWDOS Ready. 

Execute Debug '123' and! 

modify 799F find 21 C5 30 change to 21 CE 30 

modify 79B9 find 21 05 31 or 21 25 31 change to 21 8E 30 

Now jump to 6000H 'G6000' and test that Tasmon works OK 
including the arithmetic operations. Then write a new copy of 
tasmon to disk.... E.G. 

W D 6000 7 IFF 6000 

TAS4P/CMD!0 

- Tony Domigan, PO Box 150, Thomastown, Victoria, 3074, 

AUSTRALIA. 
-July 18th 1984- 



by Tony Domigan 

GETPROG/ASM is a simple demonstration use of a Model 4 
32K memory bank in the Model III mode. 

The Model 4 technical reference manual tells us how to 
decode port 84H (page 18) and the code to move each memory bank 
is given in figure 3-2. 

Summary of Control Bytes To Move the Memory Banks. 



The additional drives would then be simply plugged into the 
connector as an a standard Model 4. If anyone tries this and gets 
it to work, let us know about it! Here's Tony's program!] 



Upper bank 1 (32k) 
Upper bank 2 (32k) 



moved low 

moved high 

moved low 

moved high 

12K RAM in lieu of ROM Model 4 only 

Open ROM to 'write' Model 4P only 



- address 0000-7FFFH = fc-OH 

- address 8000-7FFFH = 20H 

- address 0000-7FFFH = 70H 

- address 8000-7FFFH = 30H 

- address 0000-2FFFH = 01H 

- address 0000-2FFFH = 01H 



In this routine I have used the upper 32k bank and moved it 
to overlay the bottom 32K memory of the 4/4P. Supenap, Edtasm 
and Tasmon were loaded to the 32K bank and the keyboard driver 
intercepted so that the programs could be invoked at any time by 
the 3 function keys. 

I used the following simple steps to store each of the 3 
programs. 

1. The program was loaded to its normal load addresses. 
K8000H). 

2. The program was relocated to 8000H and above. 

3. The first upper 32K bank was switched low 
(0000H-7FFFH). 

4. The program was relocated into the lower addressed 
memory. 

5. The ROM area bank was reinstated. 

Once the three programs were stored in the extra bank 
memory the keyboard DCB was patched with this program's 
intercept address and HIMEM was modified to protect the last 
part of the GETFROG routine. 

The intercept address of the routine checks for the Fl, F2 or 
F3 keys and if found then the extra memory bank is selected low, 
the program relocated to 8000H+, the default ROM state selected 
and the program relocated to its proper load address and 
executed. 

Simple stuff!. The only thing you must remember is to make 
no ROM calls when the ROM is deselected. He could also have 
used the second upper bank switched low or either bank switched 
high with the driver relocated below 8000H. Incidentally, Model 4 
users can also use the 12k portion of RAM that shadows ROM, any 
Model 4P users like myself can eat your hearts out - it sure would 
be handy to have ROM resident on-board. 

(P.S. Anyone worked out how to attach external drives to the 
4P?) 

- Tony Domigan, PO Box 150, Thomastown, Victoria, 3074, 

AUSTRALIA. 
-August 9,1984- 

CEDITOR'S NOTE! This program as printed below will NOT 
work with the new, upgraded version of TASMON because the 
upgraded version loads from 6000H through 8100H. In order to 
use the program below with the NEW version of TASMON, the 
following steps should work! 

1 . Enter TASMON and type X 6000 80FF C000 to relocate 
TASMON to C000H. Then type G C000 to jump to the relocated 
version. 

2. Now type X C000 EOFF 5E00 to relocate TASMON to 
5EO0H. The goal of these two steps is to put the entire TASMON 
program below 7FFFH. Save the relocated TASMON program back 
to disk using W D 5E00 7EFF 5E0O TASMON/CMD (you might want 
to rename your original copy of TASMON first so you don't 
overwrite it). 

3. In the program below, change the address 6000H as found 
in lines 540, 590, 1190, 1240, and 1270 to 5E00H. Also, change the 
value 1FFFH as found in lines 560, 600, 1210, and 1250 to 20FFH. 
Finally, change "t6000-7FFFH3" to "C5EPP-7EFFH:" in line 82P. 

Keep in mind that when the new TASMON is loaded from a 
memory bank after the above procedure, it will reside from 5E00H 
through 7EFFH rather than the usual 6000H - 71FFH. 

As for Tony's question about external drives on the 4P, I've 
heard a rumor to the effect that the 4P disk controller is simply 
the regular Model 4 disk controller with the edge card connector 
sawed off. If that's true, then it should be possible to either 
attach a connector (perhaps using something similar to a "gold 
plug") to the existing disk controller board, or else simply replace 
the existing controller board with a standard Model 4 disk 
controller board (from Tandy or one of the aftermarket suppliers). 
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00100 i 
00110 inn 








00120 ix 




— GETPROG/ASM - 


iiTiiimnimt-i'r 




00130 ;i 




-Deno Routine- 






00140 ;i 


Moves progs to upper 


32Kbank 2 i 




00150 ;t 


[requires NFJODSB0/vZ,441P-lZ8K] i 




08160 ;i 




(EOTASH-SUPERZAP-TASMOH) i 




ooi7o ;x 




Invoke with Fl, FZ and F3 I 




00180 ;i 


BY TONY DOMIGAN - August'81 I 




00198 Ji PO Box 150 Thonastown,victori3,3071,Australia * 
1(280 ;iui""" »..■■..... 




oozio ; 










00220 ; 










00230 i 








FOCI 


00210 


iGRG 


0FDC8H 


{Deno assembly pt 


FDCI 217*E 


00250 START 


LD 


HL.MSGl 


"Load edtasn' nsg 


F0C3C067H 


00260 


CALL 


4467H 


JPrint it 


FDC4 2112FE 


00270 


LD 


HL.CMD1 


{LOAD comand 


FDC9CDW41 


00280 


CALL 


H19H 


(Execute & return 


FDCC 210052 


00290 


LD 


HL.5280H 


IReloc pt for edtasn 


FOCF 110888 


00300 


LD 


DE.8000H 


{Start of bank 2 


fD02 01FF24 


00310 


LD 


BC.ZTFH 


{Length of edtasn 


FD05ED88 


003Z0 


LOIR 




IMove it 


F007 211888 


08338 


LD 


HL,8000H 


(Reloc start -edtasn 


FDOft 119008 


80340 


LD 


DE.OOOOH 


.Start of upper bank 2 


FDOO 01FF21 


00350 


LD 


BC,Z1FFH 


{Lenght of edtasn 


FDEI DX3FF 


00360 
00370 


CALL 


SWP 


{Switch up .bank 2 low t 
Jnv edtasn to 0000-24FFH 


FDE3 Z1ADFE 


00388 


LD 


HL.HSGZ 


'Load superzap' nsg 


FDE6CD6744 


00390 


CALL 


1467H 




FDE9 2152FE 


00100 


U) 


HL,OOZ 




FDEC CD1944 


00410 


CALL 


H19H 




FDEF 210052 


00420 


LD 


HL.5200H 




FDf2 111080 


00130 


LD 


DE,8000H 




FDF5 01FF1D 


00440 


LD 


BCIDFFH 




FDF8EDB0 


00450 


LOIS 






FDfA 211880 


00160 


LD 


HL,8000H 


Start of reloc. s'zap 


FDFD 110940 


00170 


LD 


DE.4000H 


Dest. in upper bank 2 


FEOO I1FF1D 


00180 


LD 


BC,1DFFH 


Lenght of superzap 


FE03CDC3FF 


00490 


CALL 


SWAP 


Mv s'zap to 1800-5DFFH 


FE06 21E5FE 


88500 


LD 


HL.HSG3 


'Load tasrun' nsg 


FES? C06741 


08510 


CALL 


H67H , 




FEOC 2161FE 


00520 


LD 


NL,OD3 ! 




FEIF CD19H 


00530 


CALL 


4119H ; 




FE12 211060 


00540 


LD 


HL.6000H ! 




FF.15 1U080 


00550 


LD 


DE,8000H ! 




FE18 01FF1F 


00560 


LD 


BC1FFFH ! 




FE1BEDB0 


00570 


LOIR 






FE1D 211080 


00580 


LD 


HL.8000H ! 


Start of reloc tasnon 


FE20 110860 


00590 


LD 


DE,6000H ; 


Dest. in up. bank Z 


FE23 OIFFIF 


00600 


LD 


BC,1FFFH ! 


Length of tasnon 


FE26CDC3FF 


00610 


CALL 


5)ttP i 


Mv tasnon to 6000-7FFFH 


FE29Z11DFF 


00620 


LD 


H,HSG1 ; 


Completion Message 


FE2CCD4741 


00630 


CALL 


1467H ( 




FEZF 2Alo4S 


80640 


LD 


HL,(4016H) J 


2et driver address 


FE32ZZ5BT 


00650 


LD 


(KICEPT+1),HL ; 


store address 


FE35 215DFF 


00660 


LD 


HL,KKEPT ; 


ketfid intercept addr 


FE38 221640 


00670 


LD 


(4016H),HL ', 


Store it 


FE3B ZB 


00680 


DEC 


HL J 




FEX 221141 


00690 


LD 


(1411H),HL i 


Store HBCM 


FE3FC3ZD40 


00700 


JP 


40ZDH ! 


Em TO tocos 


FE12 1C 


00718 001 


DEFM 


'LOAD EOTASM/CMD' 




IF 41 44 20 15 44 51 41 53 10 2F 43 10 41 




FE51 OD 


00720 


DEFB 


OOH 




FE5Z 1C 


00730 002 


DEFM 


'LOAD SIPERZAP/CHJ 


5' 


W 11 U 20 53 53 50 15 52 5A 11 50 2F 43 10 14 




FE63 OD 


00740 


DEFB 


0DH 




FE64 4C 


00750 003 


DEFM 


'LOAD TASHON/CIO' 




IF 11 14 ZO 51 11 53 10 1F * 2F 43 10 14 




FE73 0O 


08768 


DEFB 


OOH 




FE71 0A 


10770 NSG1 


DEFB 


(AH 




FE75 1C 


00780 


DEFM 


'Loading EDTASM 


to upper 32k nenory bank 


6F 41 41 49 6E 67 ZO 15 14 51 41 53 10 20 20 20 


tOOOO-ZtfFH]' 


71 4F ZO 75 70 70 45 72 20 33 32 66 20 60 45 60 




6F 72 79 ZO 62 61 6E 68 20 20 5B 30 30 30 30 ZD 




32 31 16 44 48 50 








FEAC 00 


00790 


DEFB 


BOH 




FEAD4C 


00808 MSG2 


DEFM 


'Loading SUPERZAP 


to upper 32k renan bank 










C1800-510OH]' 



6F 61 41 


49 6E 67 26 53 55 50 


71 6F 20 75 70 78 45 72 21 33 


6F 72 79 26 62 41 oE 6B 26 21 


35 31 H 11 18 5D 




FEE1 6D 


60810 


DEFB 


FEES 1C 


00826 HSG3 


DEFH 


6F 61 41 69 4E 47 21 51 11 53 


71 4f 20 75 70 71 45 72 26 33 


4F 72 79 


26 62 61 4E 48 26 20 


37 31 14 14 18 50 




FF1C OB 


00830 


DEFB 


FflO OA 


60810 HSG1 


DEFB 


FF1E 15 


06856 


DEFH 


«511153«X5355 50 15 


11 53 H> * 1E 20 4£ 6F 77 20 


4C 45 41 20 2D 20 19 4E 74 4F 


48 21 14 31 2C 14 32 20 6F 72 


FF5C OD 


00840 


DEFB 


FF5D COOOOO 


00870 KICEPT 


CM1 


FF4I F5 


60886 


PUSH 


FF61 3*111 


06896 


LD 


FF41 C847 


66966 


BIT 


FF44 200A 


66916 


JR 


FF48 C84F 


06926 


BIT 


FF6A 2021 


66936 


JR 


FF4C C877 


66916 


BIT 


FF6E 2038 


66950 


JR 


FF70 Fl 


06966 


POP 


FT71 C9 


66976 


RET 


FF72 Fl 


66986 GETEDT 


POP 


FF73 210086 


66990 


LD 


FF74 116686 


61680 


LD 


FF79 61FF21 


01618 


LD 


FF7CCOC3T 


61828 


CALL 


FF7F 210686 


01630 


LD 


FF82 110652 


01010 


LD 


FF85 01FF21 


01056 


LD 


FF88 ED60 


01040 


LOIR 


FF8A C3004F 


01070 


JP 


FF8DF1 


61080 GETZAP 


POP 


FF8E 210610 


61690 


LD 


FF91 116686 


611(6 


LD 


FF91 61FF1D 


81116 


LD 


FF97 C0C3FF 


61126 


CALL 


FF9A 210686 


81138 


LD 


FF90 116652 


01116 


LD 


FFAO 01FF1D 


01150 


LD 


FFA3 EDB8 


01168 


LOIR 


FA5C3C551 


61170 


JP 


FFA8 Fl 


01180 GETTAS 


POP 


FFA9 210460 


01198 


LD 


FFAC 110686 


61200 


LD 


FFAF 01FF1F 


01216 


UD 


FFB2 COC3FF 


01220 


CALL 


FFB5 216680 


61238 


LD 


FFB8 116640 


01210 


LD 


FFBB 01FT1F 


61250 


LD 


FFBE EDBO 


61266 


LOW 


FFC6 C36660 


01276 


JP 


FFC3 F3 


01280 aw 


DI 


FFC1 3E41 


01296 
61300 


LD 


FFC4 D381 


01318 


OUT 


FFCSEDeO 


01320 


LDIR 


FFCA AF 


81338 


XOR 


FFCB 0381 


61310 


OUT 


FFCD FE 


01350 


EI 


FFCE C9 


01360 


RET 


FDCO 


01370 


EM) 



15 52 5A 11 56 26 
32 66 26 40 65 60 
5B 31 36 36 36 20 

•OH 

'Loading TASHON 
10 1F * 28 26 26 
32 6B 28 40 45 60 
5B 36 36 36 36 2D 

SDH 

8AH 

'EDTASH.SUPERZAP 
52 5A 11 58 2C 51 
69 4E 73 71 61 6C 
66 65 26 77 69 71 
26 16 33 

6DH 

666IH 

AF 

A,(11FW) 

1,A 

HZ, GETEDT 

5,A 

KZ.GETZAP 

6,A 

NZ.GETTAS 

AF 

Af 

HL,8666H 

DE,8886H 

BC21FFH 

SNAP 

HL,8866H 

DE.5268H 

BC,2*FH 

4F86H 

AF 

HL.1866H 

DE.8000H 

BC.IDFFH 

SWAP 

HL.S066H 

DE.5280H 

BC,1DFFH 

AF 

HL,4666H 

DE.BOOOH 

BC1FFFH 

SNAP 

H.8086H 

DE.4868H 

8C,1FFFH 

4000H 

A,41H 

(81H),A 

A 
(81H),A 



START 



00000 TOTAL ERRORS 

OBI FE12 01)2 FE52 CHD3 FE61 

GETZAP FF8D KICEPT FF5D HSG1 FE71 

HSG1 FF1D START FDCO SHAP FFC3 



to upper 32k penary bank 
C4066-7FFFH]' 



TASHON now installed - 
Invoke with F1.F2 or F3' 



DOS keyboard driver 



(Function 
Yes, get 
Function 
ITes, get 
function 
Yes, get 



Continue to DOS 
Clear stack 
EDTASH in bank 2 
Reloc address 
Length 

Hove it to 8668H 
Hove it., 
back to .. 
real address 

Execute EDTASH 



key Fl? 
EDTASH 
key F2? 
SUPERZAP 
key F3? 
TASHON 



Execute SUPERZAP 



Execute TASHON 

Hust be done' 

Hove 2nd upper bank to 

overlay RAhVROH area 

Suitch banks 

Hove progran 

A*8 

Default state 



GETEDT FF72 
HSG2 FEAD 



GETTAS FFA8 
HSG3 FEE5 



Video4 Patch for the Model 4P 

Requires Model 4P 128K & NEWDOB/80 v2,0 

by Tony Domigan 

After successfully using Video4 on my Model 4 for some time 
I was devastated to find that it bombed out after disk I/O on my 
4P. I rechecked the required patches to NEWDOS and they were 
correct, or at least as correct as I had first found them (i.e. patch 
4 to sysl? ..the bytes located were 21 OO CD iff place of 11 00 CD.) 



This patch has not been tested exhaustively so I cannot 
guarantee that it will work perfectly every time. 

I believe that the problem lies with the exit condition within 
the program. With the 4P there is no extra bank to be displaced 
by ROM and hence when you exit with select bit zero set, then the 
ROM is open to a direct writeC). During disk I/O this situation 
appears to cause a problem - just how I do not know [Editor's 
note! See "THE EXTERMINATOR" on page 2 of NORTHERN 
BYTES, Volume 5 Number 5 for an explanation of the problem and 
the four patches that are normally required when using Video4 
with NEWDOS/803. This small patch, however, does seem to work; 
thankfully, as I enjoy using Video4kb. My solution was to exit 
with both select bits off and SO column mode selected. The change 
in Video4kb/cmd is as follows: 



ADDRE55 

53A5 

53A7 



ORIGINAL 
LD A,5 
OUT (84H),A 



CHANGED TO 
LD A,4 
OUT (84H),A 



Another problem occurs when you wish to reboot NEWDOS 
while Video4(kb) is still active. Pressing the reset key or using 
the NEWDOS BOOT command results in the 4P 'hanging-up'. I 
assumed that this occurred because of a changed state in the ROM 
as modified by Video4, although I guess it could also be due to an 
unstable Bank-switched state!?). 

My solution was therefore to save the standard ROM to the 
second upper 32K spare bank and to retrieve it later prior to 
rebooting. 

GETVID4/ASM moves the ROM to the second upper spare 
bank, loads VIDE04KB/CMD, patches address 53A5H and executes 
Video4KB. 

ROMBOOT/ASM is called when the user wishes to reboot 
NEWDOS. The program reloads the ROM and reboots the system 
(RSTOO). 

- Tony Domigan, PO Box 150, Thomastown, Victoria, 3074, 

AUSTRALIA. 
-August 21st,1984- 
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08100 
0O110 


; mnminmniimiiiuiiiimuiiiiiimiiiiiiiiii 

;i GETVUMP/ASH - Hodel 1P i 




00120 


;» 


1. Saves ROH to 32K Bank for later retrieval i — v 




00130 


;» 


when REBOOT is required after using v~IDE04 i 




00110 


si 


WDE01/CHD package Toy JACK DECKER (TASn. « 




00111 


;» 


2. Loads, 


Patches and Executes VTDEOKKB) for 1P. * 




00150 


;« 


BY Tony Domgan (August 1981). i 




00160 


;» 


PO Box l50,ThonastoHn,Victoria,3071,Austr3lia. » 




00178 


;* 


See ROHBODT/ASH for reverse procedure on « 




00180 
00190 
00200 


;* 


EXIT and REBOOT fro* VTDEOI and VMOIKB i 




(xmxiixiixi 




uuiuuiuunuuui 


6000 




ORG 


6000H 


IHust be below 8000H 




00210 








land above VideoKkb) 


6000 210000 


00220 START LD 


HL.0OO0H 


JStart of ROH 


6003 110080 


00230 




LD 


DE,8000H 


(Start bank 3 (high) 


6006 01FF37 


00210 




LD 


BC,37FFH 


(Bytes to Transfer 


6009 CD5E66 


00250 




CALL 


SHAP 


(Transfer ROH to Bank3 


600C 212960 


00260 




LD 


HL.ttSGl 


JPt to info Message 


600F CD67H 


00270 




CALL 


H67H 


[Print nessage 


6012 CD6000 


00280 




CALL 


60H 


(delay 


6015 CD6000 


00290 




CALL 


60H 


(delay 


6018 CD6000 


90300 




CALL 


60H 


(delay 


6016 21+C40 


00310 




LD 


H_,CH) 


(Pt to Dos Cnd 


601E CD19H 


00320 




CALL 


H19H 


JLoad 'Videolkb F' 


6021 3E01 


00330 




LD 


A,01H 


(patch 


6023 32A653 


00310 




LD 


(53A4H),A 


{patch it 


6026 C3075Z 


00356 




JP 


5267H 


(exec videolkb F 




00360 


> 


JP 


5208H 


(exec videolkb 


4029 52 


00370 HSG1 


DEFH 


'ROH has been saved to Upper Bank 2' 


1f 10 20 68 61 73 28 62 65 65 6E 20 73 61 76 65 




61 20 71 6F 26 55 76 70 65 72 26 12 61 4E 6B 26 

V7 




SL 

6816 0D 


00380 




OEFB 


8DH 




681C 1C 


00396 CHD 


DEFH 


'LOAD UJDE04XB/CHD' (Dos Comand 


IF 11 U 28 56 19 H 15 IF 31 « 12 2F 13 ID 11 




665D 60 


00166 
00110 


: 


DEFB 


ODH 




685E F3 


00120 SHAP 


DI 




(nust do this " ""■ 


605F 3E36 


60136 




LD 


A,30H 


(upper bank switched high 


6861 D381 


eom 




OUT 


(81H),A 


(switch bank to 8000-FFFF 


6C63ED66 


80150 




LDIR 




(Hove ROH to B000+ 


6065 AF 


00168 




XOR 


A 


;a=o 


6066 D381 


00170 




OUT 


<8W,A 


(Reinstate banks 


6068 F8 


00180 




EI 






ARTICLE 


6069 C9 


00198 




RET 






CONTINUED 


6600 


80506 




END 


START 




NEXT PAGE 


00080 TOTAL ERRORS 










>>>>>>>>> 



00 



4MC 1661 4129 START MM 9W> 4I5E 



Hill 

inn 

11121 
■•131 



amwrn i m 



llliuilliimiiimn 



(i ROHOT/ASH - Model V 

;i For use with Videol package written by 

ii Jack Oecker (TAG) when Systen Boot is 

HIM J* required whilst VidedWideolkb is active 

11151 ,'i MNOOT reloads the standard ROM inage 

H14I !» saved under OETvTMP/Crl) and reboots the 

•1171 Ji Newdos 81 vZ.I systen. 

M18I ;i by Tons Donigan (August - 1981) 
H191 Ji PO Box l5l,Thonastow,victoria,3l71,Australia i 
IIZII 
IIZ1I 



■""■■'■" mm 



S2II 

5211 C0C981 

5213 2UF5Z 
52J4 CD4711 
HI? 11IIH 
S2K 21l«l 
52* I1FF37 

5212 CD515Z 
5215 CDMH 
5218 CDMII 
521B CD4HI 
521EC7 
5Z1F52 



••221 

BI23* START 

••241 

H25I 

11261 

11271 

1(281 

•1291 

11311 

11311 

••321 

11331 

H3MHSG1 



ORG 52ltH Jhust be below 8IMH 

CALL I1C9H ;cls 

LD HL.HSCl ; P t to info nsg 

CALL M67H {print nsg 

LD DE,HHH {start of Ron 

LD HL.8HIH {start of bank2 

LD BC,37FFH {bytes to nove 

CALL SHAP ;xfer ROH back 

CALL MH {delay 

CALL m {delay 

CALL tm {delay 

RST MH {reboot Newdos 

DEFrl 'Restoring Saved ROM uiage for Reboot of Newdos 81 



45 73 71 4F 72 49 4E 47 2» 53 41 76 45 41 Z» 52 
f 10 21 69 4D 41 47 45 21 44 4F 72 21 52 45 62 
4F 4F 71 21 4F 44 21 * 45 77 41 4F 73 21 38 31 



525* (0 

5251 n 

5252 3E31 
5251 D3M 
5254 EDW 
5Z58 3EM 
525AD381 
525CF6 
5Z5DC9 
5211 



••351 

11341 SNAP 

(1371 

••381 

•1391 

•UN 

11111 

IH2I 

11131 

•MH 



DEFB 

DI 

LD 

OUT 

LOT* 

LD' 

OUT 

EI 

RET 

END 



MH 

A,31H 
(8«>,A 

A.HH 
(8W).A 



START 



iiM5t be done! 

(nove bank 2 I open ROH to write 

!do it now 

{nove Bank men to RON area 

{ROM default node t 81x21 screen 

Job it now 



DHtl TOTAL ERRORS 



1CB4E1 
1C87 7E 
1CB8F5 
1CB9 1A 
1CBA77 
1CBBF1 
1CBC12 
1CBD 13 
1CEE23 
KSF 1IF4 
1CC1 El 
1CC2D1 
1CC3C1 
KX1F1 
1CC5C9 
KX4CDAA1C 
1CC9C35D*- 
1CCCCDAA1C 
KXFCD6711 
1CD2C9 
1CD3.3A4F* 
1CD4FE33 
ICDB^AAIC 
1CDBC9 
1C0CC0D31C 
1CDF18EE 
KE1 CD03C 
I' 1CE1 F3 
1CE5I413 
«X7C381« 
1CEAE5 
1CEB 21875B 
1CEECDAA1C 
1CF1E1 
1CF2 3EI8 
1CF1C3C95A 
1CF7CDAA1C 
1CFA CM758 
1CFDC9 
•III 
Hill TOTAL 



11241 
•1271 
•1281 

M29I 
••311 
11311 
11321 
9(331 
11311 
••351 
11341 
11371 
1(381 
11391 
Hill 
11111 
H12t 
•1131 

imi 

11151 
W41 
1H7I 
H181 
IH9I 
HSII 
01511 
1 1521 
l«53« 
11511 
H55I 
••541 
11571 
••581 
11591 



SLOOP 



RTNEI 

RTNE1 
PEOT 

RTHE2 



RTNE3 
RPC1 

RTNE5 



11411 

11628 
11431 
11411 

11651 
ERRORS 



RTKE6 



POP 

LD 

PUSH 

LD 

LD 

POP 

LD 

DC 

DC 

DJNZ 

POP 

POP 

POP 

POP 

RET 

CALL 

J> 

CALL 

CALL 

RET 

LD 

CP 

CALL 

RET 

CALL 

JR 

CALL 

DI 

LD 

J> 

PUSH 

LD 

CALL 

POP 

LD 

JP 

CALL 

CALL 

RET 

END 



HL 

A,(HL) 

AF 

A, (HE) 

<HL),A 

AF 

(OE),A 

DE 

HL 

SLOOP 

HL 

DE 

ec 

AF 

STANDO !SYSI/SYS,12,28 =CD C4 1C 

1F5DH 

STANDO {SYSl.ll.CF = CD CC * 

H47H 

A,(«HFH> 

33H 

Z.STANDO 

RTHE2 JSYS7,1,91 = C3 OC 1C 

PEOT 

RTNE2 ;SYS7,I,B2 = C3 El 1C 

B.I3H 

«1H 

HL !BASIC,3 t 7E = CD EA * 

HL,5BB7H 

STANDO 

HL 

A,NH 

5AC9H 

STANDO !BASIC,1,33 = C3 F7 1C II 
5B17H 



rtSGl 521F START 5211 SHAP 5251 



CHECK 1CAE PEOT 1CCF RTHE1 1CC4 
RTHE3 1C0C RTNE1 1CE1 RTNE5 1CEA 
STANDO 1CAA StW 1C81 



RTNEI 1CCC 
RTNE4 1CF7 



RTNE2 1CD3 
SLOOP 1C87 



TlATFfA'iM 
by Tony Domigan 

This program will probably not be of much interest to folks 
living in the U.S. or Canada, but those in other parts of the world 
may find it of great interest. The program listing is actually a 
series of patches to the Model III version of NEWDOS/80 version 
2, that changes the format of the date (as reported by the system 
DATE command) to DD/MM/TY. See the remark statements in the 
program for further information. 

Hill i iMiiiiiimiiiimiiii miiiiniii TT Oii mn 

11121 Ji Patch to allow DO/ffl/YY foriwt with Newdos8l v2 1 
IH31 }i for date end and julian date conversion 1 

Hill {1 by Tony Ootiigan 1 

HI51 Ji Po Box 151, Thonastowh, Vic, 3171, Australia 1 
H14J Ji ph 164-1738 1 





III7I ;i (mdel 3 Version Only) x 
Mlffll ;iiiiiimii||;iinniiiinn m 


1CAA 


IH9( 

•1111 ; 


ORG 


1CAAH 




Mill J Apply the following bytes to Sysl/sys,9,AD 
11121 J Skip over the Loader bytes at 93 - 94 
11131 { Modify other Nodules as indicated in R*s 

••in ; 


1CAAF5 


•1151 STANDO 


PUSH 


AF 


1CABC3 


11141 


PUSH 


BC 


CACD5 


11171 


PUSH 


DE 


1CADE5 


11181 


PUSH 


HL 


1CAEE5 


11191 CHECK 


PUSH 


HL 


1CAF23 


H2H 


DC 


HL 


1C8I23 


IIZII 


DC 


HL 


1CB1 23 


11221 


DC 


HL 


1CB2E5 


11231 


PUSH 


HL 


1C83D1 


H21I 


PO? 


DE 


1CB1 1412 


11251 SNA? 


LD 


B,I2H 
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This program, like the disk alarm program in the last issue 
of NORTHERN BYTES, was sent to us by Paul Fransen who is the 
secretary of a TRS-80 users group in The Netherlands. This one 
lets you change the banner on your NEWDOS/80 version 2 system 
disk (probably on the Model I version only, but I'm not certain 
about that). Just to be on the safe side, make a backup of any 
disk you want to try using this program on. Have fun! 

10 REM ••*«*•****••*••**•***•***********•*#****•***•**«•*« 
**# 

20 REM **# Idea! P Keus, Program.' P Fransen (C) 1984 ##« 
30 REM «»* ##* 

40 REM #♦» This program let you create your own Boot-head *** 
50 REM #*# Every diskette its own Boot-head, so you will «»« 
60 REM *»* immediatly know which diskette your are using #•# 
70 REM «*» The program is simple, so there is no need for *»* 
80 REM *»# further instructions. Much fun. *♦* 

90 REM >HHHHHM«mMHHHtHHM«HMtHttHH<H*f 
*•* 

100 REM 

no cleariooo:cls:definta-z:dimx,y,c i ,c2,c3,C4,z,zi ,q,r,a», 

B»,CS,A(55,3),Q(13)a ! ORI=0TO13;READQa):NEXT!C*»CHR«(34)!DA 

TA8448,15360,256,1023^014,2096,14359,12037,14111,30495,2851,- 
20104,-4576,201 ' 

120 FRINT@384,CHR*(31 >{"-=: CREATION OF YOUR OWN BOOT-H 
EAD FOR NEWDOS80 2.0 :=- 

<ARROWS> = move cursor <F> = frame on/off 

<£> = SET-mode <R> = RESET-mode 

<0> = Text-mode on/off <K> = reverse head" 
130PRINT»<P> = to Printer <B> = Basic-prog, to disk 

<*> = write BOOT-head <•> ■ load BOOT-head 
<Q> ■ restart <E> = end (boot)" 



1 40 X =2!Y=3:S= i:Cl = l 2S:B«=CHF*(10):GOSUB41 

150A*=INKEY*:iFA*=""THENSET(X,Y>!RESET<X,Y>:GOTO150ELSE 

ONIKSTR(CHR*(91)+CHR*(lO)+CHR«<8)+CHR$W)+"SsRi'OoFfBbPp0 

Kk#*Ee",A*)GOTO180,190,200,210,160,160, 170,170,140,140,220,22 

0,230,230,310,310,320,350,350,370,390,400,400:GOTO150 

160S=r.GOTO150 

17OS=0:GOTO150 

1 SO IFY <■' 4THEN 1 50ELSEGOSUB450:Y= Y- 1 IGOTO 1 50 

1 90 IFY> 1 OTHEN 1 50ELSEGQSUB450:Y=Y+ 1 IGOTOl 50 

•00IFX<3THEN150ELSEGOSUB450:X=X-l:GOTO150 

210IFX>110THEN150ELSEGOSUB450:X=X+i:GOTO150 

220 GOSUB420:GOTO150 
230GOSUB440:OPEN"OM,"HEAD/BAS":PRINT#1,10;"CLS:CLEAR 

1000:Bl=CHRt(10):FRINT"+C*+"<l> screen only 

<2> change SYS 

C3> end 

Make your choice..."+C*:PRIHT#l,20J"Y$=INKEY*:iFY*="+C$+C$+ 
"THEN20ELSEY=VAL(Y*>:iFY<lORY>3THEN20ELSEIFY=3THEN12 

0ELSEIFY1THEN3O" 
240PRINT#l,25;"OFEN"+C»+"R"+Ct+",l,"+C*+"SYS0/SYS"+C*+":F 

IELD 1 , 1 ASZ1 $ ,4 ASDUMM Y*,57 ASZ2*, 1 ASY2*,55ASZ3», 1 ASY3$,77A 
SDUMMY*,59ASZ4$,1ASY4*:GET1 ) 13:A»="+C$+C*:PRINT*1 i 30;-CL 

s:forz=ito55:reada:pokei536o+z,a:ify=2thena*=a*+chr*(a 

r 

250 PRINT* 1 ,40;"NEXT:iFY=2THENA*=A*+STRlNG*<4,32>:LSETZ4 
*=At:LSETY4*=B*:FUTl,13:GETl,14-:FRINT#l,50;"READA:POKEl 

5425,a:ify=2Thena*=chr*(A):lsetzi*=a*:a$="+c$+c»:print#i 

,60;"FORZ=2T055:READA:FOKE15424+Z,A:IFY=2THENA«=A$+CHR 

t(A)" 

260PRINT#l,70;"NEXT:iFY=2THENA*=A*+STRING$(2,32):LSETZ2 

t=A*:LSETY2*=B*:A«= ,, +C*+Ct:PRINT#l,80; ,, FORZ=lTO55:READA: 

pokei5488+z,a:ify=2THEna*=a*+chr»(a)":print#i,9o;"next: 
ify=2thenlsetz3t=a*:lsety*=b*:putl,14:close" 

270 PRINT* l,100;"PRINT(J896,"+C$+"Press a. key for menu..."+C«! 
PRINT*1,1 10;"A*=INKEY*:iFAi="+C*+C*-t-"THENl lOELSECLSSGO 

toio-:frint#i,i2o;"CLs:cmd"+c»+"BOOT"+c*:r=i20 
28oforz=ito3:print*i,r+z*io;"Data";:forzi=ito55:print*i 

,A(Zl,Z-l)::ini=30THENR=R+10:PRINT#l,:PRINT*l,R+Z»10!"DAT 

A";ELSEIFZK55THENPRINT*1,CHR*(44)J 

290 NEXTZi:PRINT*l,:NEXTZ:CLOSE:PRINT@896,"*** <l>=run Ba 

sicprogram, <2>=menu ***"!A*="" 

300 At=INKEY*:lFAi=" 1 "THENCLS:RUN"HEAD/BAS"ELSEIFA*=" 

2 a THENPRINT(a896,CHR*(30>! , .GOTO150ELSE300 

31ogosub44o:forz=oto2:forzi=ito55:lprinta(zi,z);:mextzi: 
nextz:lprint:lprint:forz=0to2:forzl=lto55:poke14312,aa 
i,z)+32:nextzi!LPRINt:nextz:gotoi50 

320AS="":A*=INKEY«:lFAi=""THEN320ELSEONINSTR(CHR»(9)+C 
HR«(10)+CHF*(91)+CHR«(13)+CHR*(8>+"(a",A*)GOTO320,320,320,32 
0,340,150 

330print@x/2+int(y/3)*64,a*;:x=x+2:goto320 

340 x=x-2:print0x/2+int(y/3)+64," ";:goto320 

350 ifc1032thengosub420 

3«>q=0:defusr0=varftr(q(0»:o=usr0(0):goto150 

37ogosub44o:gosub47o:a*="":forz=ito55:a*=a*-k:hr*(A(z,o)) 

:N£XT:A«=A*+STRING*<4,32>:LSETZ4*=A*:LSETY4$=B*:PUT1,13!G 

eti,i4:a*=chr*(A(1,i»:lsetzi*=a*:a*= ,, ":forz=2to55:a*=a*+c 
hr*(A(z,d):next:a$=a*+string*(2,32):lsetz2*=a*:lsety2*=b« 

380 A$= n,,, .FORZ= 1T055!A*=A«+CHR*(A(Z,2)):NEXT:LSETZ3$=A*:LS 

ETY3«=B*:FUT1,14:CLOSEJGOT0150 

390GOSVB470:FORZ=1T055!A<Z,0)=ASC(MID*(Z4$,Z,1)>:POKE15424 

+z,a(Z,0):next:geti,i4:a(1,1)=asc(zi*):pokei5489,a(i,d:forz=2 

T055:A(Z,l)=ASC(MID«(Z2t,Z-l,l)):FOKE15488+Z,A(Z,l):NEXT:FORZ 
= lT055:A(Z,2)=ASC(MID*(Z3t,Z,l)):FOKE15552+Z,A<Z,2):NEXT:CLOS 

EIGOTO150 

400 CLS:CMD"s=boof' 

4 1 FORZ=0TO2:PRINT@65+Z«64,STRING*<55, 1 28)i:NEXT 

420IFClO176THENCl=176!C2=13i:C3=170:C4=14?ELSECl=32:C2= 

'•'•2!C3=32!C4=32 

430FORZ=15361TO15415:POKEZ,Ci;POKEZ+256,C2:NEXTZ:FORZ=l 
5424T015552STEF64:POKEZ,C3:POKEZ+56,C4:NEXT:RETURN 
440 FORZ=0TO2:FORZl=lTO55!A(Zl ,Z)=FEEK(15424+Z1+Z«64):PRIN 

t@99o,a(zi,Z);:nextzi,z:print@990,che*(30);:return 

450 IFSTHENSET(X,Y)ELSERESET(X,Y) 

460 RETURN 

470OPEN"R",l,"SYS0/SYS"5FIELDl,lASZl*,4ASDUMMY$,57ASZ2*. 
lASY2*,55ASZ3t,lASY3*,77ASDUMMY*,5?ASZ4$,lASY4$:GETl,13: 
RETURN 




MATERIAL, including 
programs donated to 
the TAS PUBLIC DOMAIN 



SAULT STE. MARIE 
if you are 
compensation for 
in which case 
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THE MAP ABOVE (showing the only two 
really important cities in the state of 
Michigan) is being printed to make a point. 
Lansing (home of THE ALTERNATE SOURCE) and 
Sault Ste. Marie (home of NORTHERN BYTES) are 
not near each other! When you send letters, 
articles, orders, etc. to The Alternate Source 
or to Northern Bytes, you will experience 
needless delay if you send them to the wrong 
address. Here's the quick and simple guide to 
what goes where: 

ALL EDITORIAL 
article submissions and 
Northern Bytes and/or 
LIBRARY, "letters to the editor", and similar 
material should be sent to Northern Bytes in 
The only exception to this 
requesting some sort of 
your article and/or program, 
you must communicate directly 
with Charley Butler at The Alternate Source in_ 
LANSING. ANY and ALL material sent t 
Northern Bytes in SAULT STE. MARIE will I 
assumed to have been contributed to the public 
domain! 

ALL ORDERS FOR MERCHANDISE must be 
sent directly to The Alternate Source in 
LANSING. If you fail to do this, it may delay 
processing of your order by up to a week. In 
addition, all requests for information about 
products (including the TAS PUBLIC DOMAIN 
LIBRARY) must be sent to the LANSING address. 

PROBLEMS WITH SUBSCRIPTIONS (if you 
are a former 0pinion-80 or 80-User Digest 
subscriber, or have received a FREE six issue 
subscription for contributing an article to 
Northern Bytes) should be sent to Northern 
Bytes at SAULT STE. MARIE, because that's 
where the mailing list is maintained. 

ORDERS FOR BACK ISSUES of Northern 
Bytes should be sent to The Alternate Source 
in LANSING, unless you are a TRS-80 User Group 
and wish to trade copies of back issues of 
your newsletter for copies of Northern Bytes. 
The current price for back issues (of Volume 5 
only) is $2.00 each. 

EXCHANGE NEWSLETTERS and other 
exchange publicaions absolutely MUST be sent 
to Northern Bytes in SAULT STE. MARIE!! 
Sending them to The Alternate Source does not 
count, although you may send copies to both 
Northern Bytes and TAS if you like. 

One more note: If you send an 
to TAS in Lansing, but put in a note to "tell 
Jack such-and-such", there is a good 
possibility that the message will never getu 
passed on. Therefore, if you have comment 
about Northern Bytes, please spring for th 
extra postage and send them directly to 
Northern Bytes at SAULT STE. MARIE. 

We hope this clears up any confusion 
you may have had in regard to when to send 
something to Northern Bytes, and when to send 
something to TAS. 
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NEW SOFTWARE! 

Bridge Academy 

BRIDGE ACADEMY (TM) is a series of three instructional packages teaching the card same Bridge. 
Books I. (I, and III introduce the bidding and Playing of the average hand. More than 90 Percent of 
all opening bids are covered in these books. 

Bridge is Played by four people. This puts the beginner in an awkward position: First, it may be 
embarassing to Play with three seasoned Players when one makes so many elementary mistakes: 
second, the novice makes a mistake, he is corrected and taught a new rule - unfortunately, a similar 
situation may not come up again for weeks and by that time the rule has been forgotten. 

BRIDGE ACADEMY (TM) overcomes these problems. Every new rule comes with many exercises. 
You practice the new rule until you feel that you have mastered it. 

BRIDGE ACADEMY (TM) was designed for the beginner who wants to learn the elements of the 
game and for the. seasoned player who wants to brush up on some rules. 

From the very beginning you can Play bridge with the most patient partner you can imagine: YOUR 
COMPUTER. You can bid and play the same hands over and over again, ask for the same type of 
hand, or ask for new hands. 

BOOK I teaches you the fundamental rules of bridge, and one notrump bidding and Playing. BOOK II 
introduces the bidding and playing of one suit. Two responses to such an opening bid (the two-over- 
one and the jump shift) are practiced in BOOK III. along with some more pointers on Playing. 

Each BOOK consists of three programs, called Chapter I . Chapter 2. and Chapter 3 (these are all 
hybrid programs: a basic program and a machine language program); a Cue Card, and Instructions 
for the User. 

The programs are designed to run on the TRS-80 Model I. Model 111(4) (32K disk). 

Those who order BEFORE December 1 5th can receive all three books for just $39.95. After this 
date, they are available for only $19.95 each. 

Macro Typing 

MACRO TYPING is a unique program that will help you become a better typist! Currently available 
for the Models I. III. and 4 (in the native 4 mode). MACRO TYPING can accurately track your typing 
speed to over 1 00 words per minute. A special feature allows you to generate random sentences 
for Practice drills. An editor is included that will allow you to construct specific drills and 
exercises. The Model 4 Provides both audible and visual feedback when you type a character 
wrong. This feature requ res an auxillanly amplifier on the Models I and III. A i special MACRO 
MODE" Prims the letters to be typed in large graphic letters. Perfect for Persons with mpaired 
vision. After some practice, you can take 1 . 3 and 5 minute timed-wntings. just like those in formal 
typing classes, and find out how fast you REALLY are! 

AH three versions of MACRO TYPING are included with the package. Support is also included for 
Model I systems without lower case. MACRO TYPING is only $29.95 complete with instructions. 

Please send me the following: SSHScb. 

ADDRESS: 

D BRIDGE ACADEMY BOOK I $19.95 ?S?. RESS: c TATF . 7IP . 

□ BRIDGE ACADEMY BOOK II $19.95 r™,-™ *ihic. cir. 

□ BRIDGE ACADEMY BOOK III $19.95 g^^rCard #: 

d ALL THREE FOR JUST $39.95 Expiration Date: 

(Before December 1 5th) Michigan residents. Please add 4% sales tax. 

(Before oecemoer I stn) ^^ America . p|easc a<w $3 f or sniP p ing and nan dling. 

a MACRO TYPING $29.95 Foreign: S^urface. add 10%: Air. add 20%. 

COD add $2.00. _ 



STRUCTURED PROGRAMMING! 



TRSOOS and MSOOS users, you don't need a Macintosh and a 
S250 BASIC package to do structured programming! The 
Alternate BASIC (ABASIC) eliminates line numbers, but that s 
only the beginning. ABASIC is an enhancement to your current 
Microsoft BASIC. 

Use your word Processor to create libraries of relocatable 
BASIC code that can be used and reused by many different 
programs. These routines can be merged with your programs, 
simply by using a "COPV" command. All ABASIC subroutines 
will have a label, you simply use one line in your BASIC COPV 
(.ABLE from "filename" and the code will be included in the 
translation to Microsoft BASIC. The library of subroutines with 
ABASIC include a complete HELP system. 

ABASIC code can be written with any word processor. With 
ABASIC. you can use "structured constructs". What this actually 
means is that we're adding new BASIC commands to your 
existing BASIC. Some examples are: 

IF ENDIF - With this command, you can start an IF statement, 
and follow it with as many lines as is necessary for this condition, 
until an ENDIF is encountered. Your IF statements are no longer 
limited to one 255 character line. 

DO WHILE and DO UNTIL - The difference between these two 
structures is that if a condition doesn't exist, it will never be 



executed with a DO WHILE Ioop: it will be executed until it does 
exist with a DO/UNTIL loop. Examples are Provided in the 100 
page ABASIC manual. 

SELECT CASE -• With this powerful command. ABASIC can 
selective use and bypass portions of BASIC code. Programming 
a large set of conditional situations has never been easier. 

There's lots more. ABASIC includes a set of utility programs 
written in ABASIC and their Microsoft translation that you can 
use immediately. These include CREF. LUAR. XUAR and XLATE. 
Full descriptions are provided in the documentation. 

The Model 4 and MSDOS versions of ABASIC are compiled. The 
Model till versions are in BASIC. ABASIC is "written in itself 
and can translate itself. The Alternate BASIC, complete with 
manual, lots of sample code, help files, utilities and extensive 
documentation is only $69.95. There are lower priced packages, 
but we urge you to compare, feature for feature. To our 
knowledge, you won't find more comprehensive support for 
structured BASIC programming for microcomputers at a better 
price. Please specify which machine you are running, whether it 
is MSDOS or TRSDOS and the operating system you generally 
use. Orders for The Alternate BASIC can be placed with The 
Alternate Source. 704 North Pennsylvania Avenue. Lansing. 
Michigan. 48906 or by Phoning (517) 482-8270. 



NORTHERN BYTES 

c o Jack Decker 

1804 West 18th Street 

Lot# 155 

Sault Ste. Marie. Michigan 49783 

MCI Mail Address: 102-7413 

Telex: 6501027413 

(Answerback: 650 1 0274 1 3 MCI) 

POSTMASTER: If undeliverable return to: 

The Alternate Source. 704 North Pennsylvania Avenue. Lansing. Michigan 48906 



Bulk Mail 

U.S. Postage Paid 

Permit #815 

Lansing. Ml 



To: 



